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I. PURPOSE 

THE CORE FUNCTION TESTS TEST THE CORESt CORE READ/WRITE ClRCUITRYt AND 
THE CORE ADDRESSING CIRCUITRY IN THE : 131 CENTRAL PROCESSING UNIT. THE 
CORE FUNCTION TESTS CONSIST OF TWO PROGRAMS WHICH ARE NORMALLY LOADED 
AND EXECUTED IN THE FOLLOWING SEQUENCE. 



A. 



B. 



HIGH CORE FUNCTION TEST (PID 03B0) TESTS ALL CORE LOCATIONS ABOVE 
ADDRESS /0800, AND CORE LOCATIONS /OOOO THRU /0009. 
LOW CORE FUNCTION TEST tPID 03B1 » TESTS CORE LOCATIONS /OOOO THRU 
/0900 AND THE TEN HIGHEST LOCATIONS IN CORE. 



2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE CORE FUNCTION TESTS ARE LOADED BY THE 1130 RELOCATING LOADER. 

2.2 EQUIPMENT PREREQUISITES 



A. 

B. 



1131 CPU 

CARD OR PAPER TAPE INPUT TO THE 1131 
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3. USE PROCEDURE 

3.1 PROGRAM LOADING 

TO LOAD FROM CARDS 



A. PLACE THE RELOCATING LOADER, THE HIGH CORE TEST, AND THE LOW 
CORE TEST IN THE READER IN THAT ORDER. (SEE NOTE I 

B. HAKE READER READY. 

C. PRESS THE 1131 RESET KEY. 

D. PRESS THE 1131 PROGRAM LOAD KEY. 

E. IF THE PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW ADDRESS 
/0160 REFER TO THE RELOCATING LOADER DOCUMENTATION. 

TO LOAD FROM PAPER TAPE 

A. PLACE THE RELOCATING LOADER IN THE READER. 

B. MAKE THE READER READY. 

C. PRESS THE 1131 RESET KEY. 

D. PRESS THE 1131 PROGRAM LOAD KEY. 

E. LOADER WILL LOAD AND HALT AT WAIT 30F6 (B REG). 

F. PLACE THE HIGH CORE TEST IN THE READER. (SEE NOTE) 

G. MAKE THE READER READY. 

H. MANUALLY SET lAR TO /0078. 

I. SET MODE SWITCH TO RUN AND PRESS PROGRAM START. 

J. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW ADDRESS 

/0160 REFER TO RELOCATING LOADER DOCUMENTATION. 
K. AFTER HIGH CORE TEST IS LOADED. PLACE THE LOW CORE TEST TAPE 
IN THE READER AND HAKE READER READY. 

NOTE. ..IF dISIRED EITHER OF. THE TWO PROGRAMS MAY BE LOADED AND 
EXECUTED INDEPENDENTLY. IF THE PROGRAMS ARE TO BE RUN 
IN SEQUENCE THE HIGH CORE TEST MUST 83 EXECUTED FIRST. 
EXECUTION OF THE LOW CORE TEST DESTROYS THE LOADER. 



3.2. 



OPERATING PROCEDURE 



B. 
C. 
0. 



F. 
G. 
H. 



THE HIGH CORE TEST WILL LOAD AND STOP AT WAIT 3001 (B REG). THE 

CORE SIZE WILL BE DISPLAYED IN THE ACCUMULATOR. 

SET SWITCH OPTIONS IF DESIRED. (NORMAL— ALL SWS OFF) 

PRESS PROGRAM START. 

THE HIGH CORE TEST WILL RUN ABOUT 1 TO 5 MINUTES DEPENDING 

ON CORE SIZE AND, IF NO ERRORS OCCUR, STOP AT THE END OF 

PROGRAM WAIT 3002. SET SWITCH OPTIONS ID DESIRED AND PRESS 

PROGRAM START. IF SW 15 IS ON THE HIGH CORE TEST WILL BE 

RERUN. 

IF SWT 15 IS OFF THE LOW CORE TEST WILL LOAD AND STOP AT WAIT 

3001. THE CORE SIZE OILL BE DISPLAYED IN. THE ACCUMULATOR. 

SET OPTIONS IF DESIRED. (NORMAL—ALL SliS-OFF) 

PRESS PROGRAM START. 

THE LOW CORE TEST WILL RUN ABOUT 1 MINUTE AND, IF NO ERRORS 

OCCUR, STOP AT THE END OF PROGRAM WAIT 3002. PRESS START TO 

RERUN THE LOW CORE TEST. 

ERRORS WILL BE INDICATED BY ERROR WAITS AND PRINTOUTS. 

PROGRAM OPTIONS MAY BE SELECTED OR CHANGED AT ANY TIME. 

SEE SECTION 3.6 FOR RESTART PROCEDURE. 
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3.3 



PROGRAM OPERATING OPTIONS 

ALL OPTIONS EXCEPT SMT 15 APPLY TO BOTH THE HIGH AND LOW CORE TESTS. 

NORMAL SWITCH SETTINGS ALL OFF 



. SHT . 


. 15 . 


. I'* . 


. 13 . 


. 12 . 


'. 11 . 


. 10 . 


9 . 


8 . 


. U-7 . 



FUNCTION 



ON. .RERUN HIGH CORE TEST WHEN START IS PRESS AT THE END OF 

PROGRAM WAIT (3002). 
OFF. LOAD LOW CORE TEST WHEN PROGRAM START IS PRESSED AT END OF 

PROGRAM WAIT (3002). 

NOTE..SWT 15 SETTING HAS NO EFFECT ON LOW CORE TEST. 

ON. .BYPASS DATA ERROR WAITS (300* AND 3005). 

ON. .BYPASS ALL PRINTOUTS. 

ON. .LOCK ON ERROR FUNCTION. IF AN ERROR OCCURS WHILE SWITCH 12 
IS ON THE FAILING FUNCTION WILL BE LOOPED CONTINUOUSLY 
UNTIL SWT 12 IS TURNED OFF. SWITCH MAY BE TURNED ON WHILE 
AT AN ERROR WAIT TO LOCK ON THE ERROR. 



ON. .LOOP ENTIRE PROGRAM. 
WILL BE BYPASSED. 



THE START AND END WAITS (3001 AND 30021 



ON. .LOOP ROUTINE. IF A VALID ROUTINE NUMBER (1 THRU 6) IS 

ENTERED IN SWS 0-7 THAT ROUTINE WILL BE LOOPED -CONTINOUSLY. 
IF NO VALID ROUTINE NUMBER IS ENTERED IN SWS 0-7 THE 
TEST ROUTINE WHICH IS CURRENTLY BEING EXECUTED WILL BE 
LOOPED. THE ROUTINE WILL BE LOOPED UNTIL SWS 0-7 ARE 
CHANGED OR SWITCH 10 IS TURNED OFF. 

ON.. PRINT ROUTINE START MESSSAGE. IF SWT 9 IS ON A START 
MESSAGE WILL BE PRINTED AT THE START OF EACH ROUTINE, 

ON.. LOCK ON ERROR ADDRESS. IF AN ERROR OCCURS WHILE SWT 8 IS 

ON THE PROGRAM WILL ALTERNATELY STORE THE LAST GOOD DATA AND 
THE LAST DATA WORD THAT FILED AT THE ADDRESS THAT FAILED. 
SWT 8 MAY BE TURNED ON WHILE AT AN ERROR WAIT TO LOCK ON 
THE ERROR. 

ROUTINE NUMBER. ..USED WITH SWT 10 QPTIOM. SEE SWT 10. 



3.4 PROGRAM WAITS 

ALL WAITS APPLY TO BOTH THE HIGH AND LOW CORE TESTS. 
3.4.1 NORMAL WAITS 



WAIT NO. 
(B REG). 



DESCRIPTION 



RESTART 
ACTION 



30F6 



3001 



3002 



END OF PAPER TAPE LOADER. THIS IS 
AN ERROR CONDITION EXCEPT AT THE 
END OF PAPER TAPE LOADER. REFER 
TO RELOCATING LOADER DOCUMENTATION. 



START OF PROGRAM. ACCUMULATOR 
CONTAINS CORE SIZE. 



A. PLACE PROGRAM TAPE IN 
READER AND MAKE READY. 

B. MANUALLY SET lAR TO 0076. 

C. SET MODE SWT TO RUN AND 
PRESS PROGRAM START, 

A. SELECT OPTIONS IF DESIRED. 

B. PRESS PROGRAM START. 



END OF TEST PROGRAM. 



SELECT OPTIONS IF DtSlRED. 
PRESS PROGRAM START, 



3.4.2 ERROR WAITS 



.WAIT NO. 




RESTART 


.(B REG). 


DESCRIPTION 


ACTION 


. 3003 




PROGRAM COULD NOT DETERMINE CORE . 


PRESS PROGRAM START TO RETRY. 






SIZE. WRAP-AROUND FAILURE. 




. 3004 




DATA ERROR. FIRST WAIT. 


. PRESS PROGRAM START TO 






A REG CONTAINS INCORRECT DATA. 


ADVANCE TO WAIT 3005. 






Q REG CONTAINS CORRECT DATA. 




I 3005 




DATA ERROR SECOND WAIT. 


. SELECT OPTIONS IF DESIRED. 






A REG CONTAINS ADDRESS THAT FAILED.. 


. PRESS PROGRAM START. 






Q REG BITS 0-7 CONTAINS RTN NO. 








REG BITS 6-15 CONTAINS FUNC. NO. . 




. 3006 




CONSOLE PRINTER FAILURE. 


. PRESS PROGRAM START. 






SELECT BYPASS PRINT OPTION IF 








FAILURE PERSISTS. 




'. 3007 




ILLEGAL SWITCH COMBINATION. 


CHANGE SWITCH SETTINGS. 






SWS 8, 10, AND 12 ARE OFF AND SWS 


. PRESS PROGRAM START. 






13 AND 14 ARE ON. THIS COMBINATION, 








OF SWS WOULD PREVENT ERROR 








DETECTION. 





3.5 PROGRAM TERMINATION 

BOTH THE LOW AND HIGH CORE TESTS WILL TERMINATE IN A WAIT 
INSTRUCTION WITH 3002 INT EH B REG. 
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3.6 RESTART PROCEDURE 

RESTART FROM ANY WAIT BY PRESSING START. 

NO RESTART LINKAGE IS AVAILABLE FROM A SYSTEM RESET CONDITION. 
TO RESTART PROGRAM MANUALLY SET THE INSTRUCTION ADDRESS REGISTER 
AS SHOWN BELOW f GO TO RUN MODE, AND PRESS PROGRAM START. 

HIGH CORE TEST.. .SET lAR TO /016X TO RESTART. 
LOW CORE TEST... .SET lAR TO /096I TO RESTART. 



*. PRINTOUTS 

4.1 NORMAL PRINTOUTS 
STiiRT HIGH CORE TEST 
END HIGH CORE TEST 



THIS MESSAGE IS PRINTED AT THE START OF THE HIGH 
CORE TEST PROGRAM. 

THIS MESSAGE IS PRINTED AT THE END OF THE HIGH CORE 
TEST PROGRAM. 



START LOW CORE TEST 
ENU LOW CORE TEST 
START RTN XX 



THIS MESSAGE IS PRINTED AT THE START OF THE LOW CORE 
TEST PROGRAM. 

THIS MESSAGE IS PRINTED AT THE END OF THE LOW CORE 

THIS MESSAGE IS PRINTED AT THE START OF EACH TEST 
ROUTINE IF SWT 9 IS TURNED ON. XX IS THE ROUTINE NUMBER. 



4.2 



ERROR PRINTOUTS 



ERK CORE SIZE 



ERR RTN XX FUNC YY 



THIS MESSAGE IS PRINTED IF THE PROGRAM IS UNABLE TO 
DETERMINE THE CORE SUE. CORE WRAP-AROUND FEATURE FAILED. 

A DATA ERROR WAS DETECTED. XX IS THE ROUTINE NUMBER 
AND YY IS THE FUNCTION NUMBER. REGISTER DISPLAYS 
WILL PROVIDE FURTHER INFORMATION AT ERROR WAITS. 
SEE ERROR WAITS SECTION 3,4,2 AND ROUTINES DESCRIPTION 



5. COMMENTS 



5.1 PROGRAM DESCRIPTION 

THE CORE FUNCTION TEST CONSISTS OF TWO NEARLY IDENTICAL PROGRAMS 
,'J!Jto°'"-T.'"^'^'*^''"5 8"''"'* T"E TWO PROGRAMS ARE T^E CORE lS^aIIoNS 
INTO WHICH THEY ARE LOADED AND THE CORE LOCATIONS WHICH THEY TEST. 

THE HIGH CORE TEST LOADS STARTING AT ADDRESS /0161 AND TESTS CORE 
FROM ADDRESS /0800 UP TO AN ADDRESS 10 LOCATIONS HIGHER THAN THE 

PPATMoI nc^^o!! "*• *^°"^* ^^^^ PROCEDURE TESTS THE WRAP-AROUND 
rtAlURc OF CORE. 

JfLb"* ^°'*^ ^^^^ ^°^°^ STARTING AT ADDRESS /0961 AND TESTS CORE 
AniJnll?^/^ *'^ ADDRESS 10 POSITIONS LOWER THAN ADDRESS /OOOO UP TO 
ADDRESS /0900. THIS ALSO TESTS THE WRAP-AROUND FEATURE AND OVERLAPS 
THE AREA TESTED BY THE HIGH CORE TEST. 



5.2 TEST ROUTINES DESCRIPTION 

RTN 1...0NES AND ZEROS PATTERN 

RTN 1 IS INITIALIZED BY FILLING CORE WITH ONES. 

FUNC. 1 CHECKS THEN COMPLEMENTS EACH CORE LOCATION STARTING AT THE 
c^r , LOWEST ADDRESS AND PROGRESSING TOWARD THE HIGHEST. 
FUNC. 2 CHECKS THEN COMPLEMENTS EACH CORE LOCATION STARTING AT THE 
HIGHEST ADDRESS AND PROGRESSING TOWARD THE LOWEST. 

RTN 2. ..ADDRESSING PATTERN 

address! ''*"^*'-''^° ^^ FILLING EACH CORE LOCATION WITH ITS OWN 

FUNC. I SAME AS RTN I FUNC I. 
FUNC. 2 SAME AS RTN 1 FUNC 2. 

RTN 3.. .CHECKERBOARD PATTERN 

RTN 3 IS INITIALIZED BY FILLING CORE WITH ALTERNATE 5555 AND AAAA 
CHARACTERS. 

FUNC. 1 SAME AS RTN I FUNC 1. 
FUNC. 2 SAME AS RTN I FUNC 2. 

RTN 4. ..BIT ISOLATldJl PATTERN 

RTN 4 HAS NO INITIALIZATION STEP. 

FUNC. 1 FLOATING ONE PATTERN. BIT IS SET ON AND ALL OTHER BITS 
OFF IN THE CORE LOCATION BEING TESTED. THE BIT IS THEN 
CHECKED AND SHIFTED RIGHT ONE POSITION SO THAT THE CORE 
LOCATION ALWAYS CONTAINS 15 BITS OFF AND ONE ON. ALL 16 
POSITIONS OF EACH CORE LOCATION ARE CHECKED BEFORE 
ADVANCING TO THE NEXT CORE LOCATION. 

FUNC. 2 FLOATING ZERO PATTERN. THIS TEST IS PERFORMED THE SAME 
AS RTN 4 FUNCTION 1 EXCEPT THAT A ZERO IS SHIFTED RIGJT 
KEEPING 15 BITS ON AND ONE OFF. 

RTN 5. ..WORST CASE (MAXIMUM NOISE) PATTERN 

VJ^c^J.LllPl^^^^^^ ^^ FILLING CORE WITH THE WORST CASE PATTERN. 
THIS PATTERN CONSISTS OF BLOCKS OF ONES AND ZEROS. 

FUNC 1 RAPIDLY SCANS CORE CHECKING EACH CORE LOCATION. 
FUNC 2 CHECKS AND COMPLEMENTS EACH CORE LOCATION FOUR TIMES 
BEFORE PROCEEDING TO THE NEXT ADDRESS. 

RTN 6. ..COMPLEMENT WORST CASE PATTERN 

RTN 6 IS INITIALIZED BY FILLING CORE WITH THE COMPLEMENT WORST 
l*Ait KA I I tRN« 

FUNC. 1 SAME AS RTN 5 FUNCTION I. 
FUNC. 2 SAME AS RTN 5 FUNCTION 2. 
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5.3 DESCRIPTION OF OTHER ROUTINES 

PROGRAM INITIALIZATION ROUTINE—DETERMINES CORE SIZE AND WAITS AT 
THE START OF PROGRAM WAIT. 

ROUTINE SEQUENCE CONTROL ROUTINE— CHECKS SWITCH OPTIONS AND CONTROLS 
THE SEQUENCE IN WHICH TEST ROUTINES ARE EXECUTED. 

PROGRAM END ROUTINE— CHECKS SWITCH OPTIONS AND WAITS AT THE END OF 
PROGRAM WAIT. 

PRINT ROUTINE— PRINTS ALL MESSAGES USED BY THE PROGRAM. 
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ABS 










3B000020 






0000 




ORG 




/0160 






3B000030 






0160 0360 




DC 




/03B0 


PID 




3B000040 
3B000050 








i^m***»**m*m*****************^rm**m*******m*m*m*m*m*m 


36000060 




















3BC0O07O 














PROGRAM 


INITIALIZATION 




3B000080 
3B000090 








*************************************************** 


3B000100 




















38000110 














FIMD CORE SIZE 




3B000120 




















3B000130 






0161 C075 


CRSIZ 


LO 




HIOOO 






3B000140 






0162 D073 




STO 




SIZE 


SET 8K CORE SIZE 




3B000150 






0163 1010 




SLA 




16 






3B000160 






016^ D400 0000 




STO 


L 





CLEAR ADDRS 0000 




3B000I70 






0166 CCOO 03F4 




LDD 


L 


LINK 






3B000180 






0168 DC80 0106 




STO 


1 


SIZE 


STO RESTART LINKAGE 




3B000190 






OlbA C400 0000 




LO 


L 





010 WRAP-AROUND OCCUR 




3B000200 






OlbC 'iCZO 0185 


* 


BSC 


L 


ENDS Z,Z 


•YESf BRANCH 




3B000210 
3B000220 






016E C067 




LD 




SIZE 






3B000230 






016F 1001 




SLA 




1 


INCRE SIZE Br 4K 




3B000240 






0170 0065 




STO 




SIZE 


IS SIZE OVER 32K 




38000250 






0171 'rClO 0163 


* 


BSC 


L 


CRSIZ-i-Zi 


- *NOt BRANCH 




3B000260 
3B000270 






0173 CCOO 03F4 




LDD 


L 


LINK 






3B000280 






C175 DC80 01D6 




STD 


I 


SIZE 


STO RESTART LINKAGE 




3B000290 






0177 C400 0000 




LO 


L 





DID WRAP-AROUND OCCUR 




3B000300 






C179 4C20 0185 


* 


BSC 


L 


FNOSZtZ 


*YE$t BRANCH 




33000310 
3B000320 






017B CCOO 03F4 




LOO 


L 


LINK 






3BO00330 






01 70 DCOO 0000 




STD 


L 









3B000340 






C17F '►'►OO 043B 




BSI 


L 


PRINT 


PRINT ERROR MSG 




3B000350 






0181 8492 




DC 




MSG05+/8000 




3B000360 






0182 048C 


* 


DC 




NSG04 






3B000370 
3B000380 






01tt3 3003 




WAIT 




3 


ERR, CANNOT FIND CORE 


SIZE 


3B000390 






0184 700C 


* 


MDX 




CRSIZ 


RETRY 




3B000400 
3B000410 






01B5 C050 


FNDSZ 


LD 




SIZE 






38000420 






0186 9400 02E8 




S 


L 


HOOOl 


CORRECT CORE SIZE 




38000430 






0188 004D 




STO 




SIZE 






3B000440 






01U9 804E 




A 




HOOOA 


ADD TEN 




3B000450 






018A 0400 02F0 




STO 


L 


UPRLM 


SET UPPER TEST LIMIT 




3B000460 






018C C049 




LD 




SIZE 






38000470 






0180 3001 


* 


WAIT 




1 


WAIT FOR SWS. SIZE IN 


ACC 


3B000480 
3B000490 






018E 4400 043B 


START 


BSI 


L 


PRINT 


PRINT START HSG 




3B000S00 






0190 8470 




DC 




MSGOl-t^/aOOO 




3B00O510 






0191 0484 


* 


DC 




NSG03 






38000520 
38000530 




/ 


0192 1010 

0193 0045 




SLA 
STO 




16 
RIO 






3B000540 
3B000550 






0194 0400 0400 


* 


STO 


L 


ERRSH 






3B000560 
3B000570 








********»*****************************»******it***** 


3B000580 








* 












38000590 








* 






ROUTINE 


SEQUENCE CONTROL 




3B000600 








* 












3B000610 








**************************************************n 


3B000620 








* 












38000630 






0196 1010 


CNTRl 


SLA 




16 






38000640 






0197 D400 0280 




STO 


L 


ALTNT 






3B0OO650 






0199 D400 0284 




STO 


L 


PASS 






38000660 






019B 0400 0282 




STO 


L 


COMPL 






38000670 






0190 0400 040E 




STO 


L 


FUNNO 






3B000680 






019F OCOO 03F6 




XIO 


L 


ROSWS 


READ SWS 




3B000690 




DATE 
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PROG 10 
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OlAl C400 040F 




LD 




SMS 




3b000700 






01A3 1805 




SRA 




5 




3B000710 






01A4 4C04 01C4 


* 


BSC 




SLRTN, E 


8R IF LOOP RTN SELfcCTEO 


38000720 
3B000730 






01A6 7401 0109 


AOVNC 


MDX 




RiO.X 


ADVANCE TO NEXT RTN 


3B000740 






01A8 C030 




LO 




RIO 




38000750 






01A9 9032 




S 




LRTN 




3B000760 






OlAA 4C30 0418 


* 


BSC 




ENO,-Z 


BR IF END OF PROGRAM 


3B0O0770 
3B000780 






OlAC C02C 


LPRTN 


LO 




RID 




3B000790 






OlAD 4C08 01A6 




BSC 




ADVNC,* 


BR IF RID IS ZERO 


3b000800 






OlAF 801F 




A 




RTTBL 




3B000810 






OIBO 0012 




STO 




STRTN+1 


SET RTN START AODRS 


3B000820 






OlBl C027 




LD 




RID 




3B000830 






01B2 8400 0410 




A 




NOTBL 




3B000840 






01B4 0001 




STO 




♦♦1 


ENTER RTN NUMBER IN NSG 


3B000850 






0185 C400 0000 




LD 




*-* 




3b000860 






01B7 0400 0498 


« 


STO 




MSG064^2 




3B000870 
3B000880 






0189 C400 040F 




LD 




SWS 




3B000890 






OIBB 1009 




SLA 




9 


RTN START MSG SELECTED 


3B000900 






018C 4C10 01C2 


* 


BSC 




STRTN, - 


«N0, BRANCH 


3B000910 
3B000920 






OIBE 4400 043B 




BSI 




PRINT 


PRINT RTN START MSG 


3U00093O 






OICO 847D 




OC 




MSG01+/8000 


3B00094O 






OlCl 0496 




DC 




HSG06 




3B000950 






^ 


* 










38000960 






01C2 4C80 0000 


STRTN 

* 


BSC 




*-* 


START TEST ROUTINE 


3B000970 
3B000980 






01C4 1803 


SLRTN 


SRA 




3 




3B000990 






01C5 4C18 OlAC 


♦ 


BSC 




LPRTN,+- 


BR IF NO RTN SELECTED 


3B001000 
38001010 






01C7 9014 




S 




LRTN 




3B001020 






01C8 4C30 OlAC 


• 


BSC 




LPRTN, Z- 


BR IF INVALID RTN NO. 


3B001030 
38001040 






OICA C400 040F 




LD 




SWS 


• 


3B001050 






OICC 1808 




SRA 




8 




3B001060 






OICO OOOB 




STO 




RID 


SELECT ROUTINE 


38001070 






OICE 70D0 


* 
• 
* 


MDX 




LPRTN 
ROUTINE 


ADDRESS TABLE 


3B001080 
38001090 
3B001100 
3B001110 






OICF OICF 


RTTBL 


OC 




RTTBL 




3B001120 






0100 0100 




DC 




RTNl 




3B001130 






0101 OlFl 




DC 




RTN2 




38001140 






0102 0211 




OC 




RTN3 




38001150 






0103 0240 




OC 




RTN4 




38001160 






0104 0265 




OC 




RTN5 




38001170 






01D5 0278 


* 
« 
« 


DC 




RTN6 
PROGRAM 


CONSTANTS 


3B001180 
3B001190 
38001200 
3B001210 






0106 0000 


SIZE 


OC 




*-♦ 


CORE SIZE 


3B001220 






0107 1000 


HIOOO DC 




/1 000 




38001230 






01D8 OOOA 


HOOOA DC 




/OOOA 




3B001240 






0109 0000 


RID 


OC 




*-* 


ROUTINE NUMBER 


38001250 






OlOA FFFF 


FFFF 


OC 




/FFFF 




38001260 






0108 5555 


H5555 DC 




/5555 




3B001270 






OlUC 0006 


LRTN 

* 


OC 




6 




38001280 
38001290 








*************************************************** 3B001300 








* 










3B001310 








* 






TEST ROUTINE ONE 


3B001320 








* 










38001330 








*************************************************** 3B001340 








* 










3B001350 






0100 COFC 


RTNl 


LD 




FFFF 




38001360 






OlDE 4400 0285 




BSI 


L 


FILL 


FILL CORE WITH FFFF 


3B001370 




DATE 


15FEB68 












PROG ID 


0380-0 


EC NO, 


420403 
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DATE 
EC NO. 











* 










3B001380 




oieo 





4400 


020E 


FUNll 


BSI 


L 


UP 


INCRE LOW TO HIGH CORE 


3B001390 




01E2 





4400 


0293 


• 


BSI 


L 


FLIP 


CK AND STORE 0000 


3B001400 
3B001410 




01E4 





4400 


0378 




BSI 


L 


LOKFN 


CK FOR LOCK ON ERR FUNC 


3B001420 




01E6 





70F9 




* 


MOX 




FUNll 




38001430 
3 BOO 1440 




01E7 





7401 


040E 




MOX 


L 


FUNNOtl 




3B001450 




0169 





4400 


02F1 


FUN 12 


BSI 


L 


DOWN 


DECRE HIGH TO LOW CORE 


3B001460 




OltB 





4400 


0293 


» 


BSI 


L 


FLIP 


CK £ORE AND STORE 0000 


3B001470 

3B001480 




OltD 





4400 


0378 




BSI 


L 


LOKFN 


CK FOR LOCK ON ERR FUNC 


3B001490 




OlEF 





70F9 




* 


MOX 




FUN12 




3B001500 
3B001510 




OlFO 





70A5 




« 


NDX 




CNTRL 


GO TO CONTROL 


3B001520 
3B001530 












*♦*****«***•***♦♦*♦«•***♦»*♦♦****»♦»♦**♦»♦*♦**♦•»«* 


3B001540 












* 










3B001550 












• 






TEST ROUTINE TWO 


3B001560 












* 










3B001570 












*************mm***m#*************t^*:t**m*****9*m**** 


3B001580 












* 










3B001590 




OlFl 





C400 


02EF 


RTN2 


LO 


L 


LWRLM 


FILL EACH CORE 


3B001600 




01F3 





D400 


02E7 




STO 


L 


AODRS 


LOCATION WITH 


3B001610 




01F5 





0480 


02E7 




STO 


1 


AOORS 


AOORESS 


3B001620 




01F7 





F400 


02F0 




EOR 


L 


UPRLN 




3B001630 




01F9 





4C18 


0200 


* 


BSC 


L 


*-^5,*- 


BR LAST AOORESS 


3B001640 
3B0016S0 




OlFB 





C400 


02E7 




LD 


L 


AOORS 




3B001660 




OlFO 





8400 


02E8 




A 


L 


HOOOl 


INCRE AOORESS BY ONE 


3B001670 




OlFF 





70F3 




* 


MOX 




RTN2->2 




3B001680 
3B001690 




0200 





4400 


02DE 


FUN21 


BSI 


L 


UP 


INCRE LOU TO HIGH CORE 


3B001700 




0202 





4400 


02AB 


» 


BSI 


L 


AORCK 


CK AND COMPLEMENT 


3B001710 
3B001720 




0204 





4400 


0378 




BSI 


L 


LOKFN 


CK FOR LOCK ON ERR 


3B0D1730 




0206 





70F9 




* 


MOX 




FUN21 




3B001740 
38001750 




0207 





7401 


040E 




MOX 


L 


FUNNO,! 




3B001760 




0209 





4400 


02F1 


FUN22 


BSI 


L 


onwN 


DECRE HIGH TO LOW CORE 


3B001770 




020B 





4400 


02 AB 


* 


BSI 


L 


AORCK 


CK ANO COMPLEMENT 


3B001780 
3B001790 




0200 





4400 


0378 




BSI 


L 


LOKFN 


LOCK ON FUNCTION 


3 BOO 1800 




020F 





70F9 




* 


MOX 




FUN22 




3B001810 
3B001820 




0210 





7085 




« 


MOX 




CNTRL 




3B001830 
3 BOO 1840 












***«»********«***«4>*«*>;>««i»***««««««**««««****»*«*«o 


3B001850 












* 










3B001860 












* 






TEST ROUTINE THREE 


3B001870 












* 










3B001880 












*»»»*»»•*»*•**«»«»•**»♦***«•*««***»*♦***♦♦*»♦*»*«** 


3B001890 












* 










3B001900 




0211 





C0C9 




RTN3 


LO 




H5555 




3B001910 




0212 





0400 


0282 




STO 




CONPL 




3B001920 




0214 





4400 


02DE 


* 


BSI 




UP 


INCRE LOW TO HIGH CORE 


3B001930 
3B001940 




0216 





0400 


02E7 




STO 




AOORS 




3B001950 




0218 





C400 


0282 




LO 




COMPL 




3B001960 




021A 





0480 


02E7 




STO 




ADDRS 


STORE 5555 AAAA PATTERN 


3B001970 




021C 





FOBD 






EOR 




FFFF 


COMPLEMENT 


3B001980 




0210 





0400 


0282 




STO 




COHPL 


SET UP NEXT WORD 


3B001990 




021F 





C400 


02E7 




LO 




AOORS 




3B002000 




0221 





F400 


02FO 




EOR 




UPRLM 




3B002010 




0223 





4C18 


022A 


* 


BSC 




••^5,+- 


BR IF LAST ADDRS 


3B00202d 
3B002030 




0225 





C400 


02E7 




LO 




ADORS 




3B002040 




0227 





8400 


02E8 




A 




HOOOl 


INCRE ADDRESS BY ONE 


3B002050 




15FEB68 
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0229 70EC 

022A COBO 
022B 0400 0282 



0220 
022F 
0231 
0233 

0235 

0237 

0238 
023A 
023C 



023E 
0240 
0242 
0244 
0246 

0248 
024A 



C400 0282 
0400 02E6 
4400 020E 
4400 02C5 

4400 0378 
70F5 

7401 040E 
C400 02E6 
D400 0282 

C400 0282 
0400 0282 
0400 02E6 
4400 02F1 
4400 02C5 

4400 0378 
70F3 



MDX 

LD 
STO 

* 

FUN31 LO 
STO 
BSI 
BSI 

BSI 
MOX 

MDX 

LO 

STO 

FUN32 LO 
STO 
STO 
BSI 
BSI 

BSI 
MOX 



RTN3-»5 

H5555 
COMPL 

COMPL 
SLOBE 
UP 
CHEX 

LOKFN 
FUN31 

FUNNO. 1 

SLOBE 

COMPL 

COMPL 

COHPL 

SLOBE 

DOWN 

CHEX 

LOKFN 
FUN32 



INCRE LOW TO HIGH CORE 
CK AND COMPLEMENT 

CK LOCK ON ERR 



DECRE HIGH TO LOW CORE 
CK AND COMPLEMENT 

CK LOCK ON ERROR 



024B 4C00 0196 



BSC L CNTRL 

* 

* TEST ROUTINE FOUR 

* 



CK EACH CORE LOCATION 
BIT BY BIT, ONE BIT ON 

CK FOR LOCK ON ERR 



0240 
024F 
0250 
0251 








C400 02E8 
0030 
1010 
4400 02F9 


RTN4 

1^ 


LD 
STO 
SLA 
BSI 


L 
L 


HOOOl 
ALTNT 
16 
FLOAT 


0253 
0255 






4400 0378 
TOFT 


^ 


BSI 
MOX 


L 


LOKFN 
RTN4 


0256 





7401 040E 


^ 


MDX 


L 


FUNNO, 1 


0258 
0259 
025A 
025C 
025E 









C028 
0026 

C400 OlOA 
0400 0282 
4400 02F9 


FUN42 


LD 

STO 

LO 

STO 

BSI 


L 
L 

L 


H0002 
ALTNT 
FFFF 

COHPL 
FLOAT 


0260 
0262 






4400 0378 
70F5 




BSI 

MOX 


L 


LOKFN 
FUN42 



0263 4C00 0196 



0265 1010 

0266 0400 027F 
0268 4400 0315 





026A 4400 0323 




026C 4400 0378 


DATE 


15FEB68 


EC NO. 


420403 



CK EACH CORE LOCATION 
BIT BY BIT, ONE BIT OFF. 

CK FOR LOCK ON ERR 



BSC L CNTRL 

♦ TEST ROUTINE FIVE 

* 

* 

RTN5 SLA 16 

STO L COUNT 

BSI L WORST STORE WORST CASE PATTERN 
♦ 

FUN61 BSI L CHECK CK EACH CORE LOCATION 

BSI L LOKFN CK LOCK ON ERROR 



3B0020<I>0 
3B002070 
3B002C80 
3B002090 
3B002100 
3B002110 
3B002120 
3B002130 
3B002140 
3B002150 
3B002160 
3B002170 
3B002180 
3B002190 
3tJ002200 
3B002210 
3B002220 
3B002230 
3B002240 
3B002250 
3B002260 
3B002270 
3B002280 
3B002290 
3B002300 
3B002310 
3B0G2320 
3B002330 
3B002340 
3B002350 
3B002360 
3B002370 
3B002330 
3B002390 
3B002400 
3B002410 
3B002420 
3B002430 
3B002440 
3B002450 
3B002460 
3B002470 
3B0024S0 
3B002490 
3B002500 
3B002510 
3B002520 
3B002530 
3B002540 
3B002550 
3B002560 
3B002570 
3B002580 
38002590 
3B002600 
3B002610 
3B002620 
3B002630 
3B002640 
3B002b50 
3B002660 
3B002670 
3B002680 
3B002690 
3B002700 
38002710 
3B002720 
3B002730 
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2A 
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026E 70F8 



MOX 



FUN61 



026F 7401 040E 

0271 coil 

0272 DAOO 027F 
0274 4400 0335 


FUN62 

* 

* 

* 
***** 

• 
* 


MOX 
LO 
STO 
BSI 


I 

L 

L 


FUNNO.l 
H0004 
COUNT 
SHAKE 


CK AND COMPL 4 TIMES 


0276 4400 0378 
0278 70F8 


BSI 
HDX 


L 


LOKFN 
FUN62 


CK LOCK ON ERROR 


0279 4C00 0196 


BSC 


L 


CNTRL 






********************************************** 








TEST ROUTINE SIX 



027B C400 02E9 
027D 0004 
027E 70E6 



**«*•*♦♦♦«*»«*****♦***•*•****»•♦♦♦♦*»»**********♦** 

* 

RTN6 LO L HFFFF SET UP COMPLEMENT 

STO COMPL WORST CASE PATTERN 

MOX RTN5 
* 
«******»♦*••*»•••*»*•♦*****«**»***•***»*♦••*♦**♦*** 

* 

* SUBROUTINES FOR RTNS 1-6 

* 
**♦♦**♦«»•**•**•****»*♦*♦**♦**•*»♦****»********♦*** 

* 



027F 0000 




* 
* 
COUNT 


OC 


PROGRAM 

*-». 


02U0 0000 




ALTNT 


DC 


»-* 


02B1 0002 




H0002 


OC 


/0002 


02B2 0000 




COMPL 


DC 


*-* 


02a3 0004 




H0004 


OC 


/0004 


0284 0000 




PASS 

• 
« 


OC 


*-* 








FILL COR 


02a5 0000 




FILL 


DC 


»-* 


02B6 005F 






STO 


SLDBE 


02B7 C067 






LD 


LWRLM 


0288 DOSE 






STO 


AOORS 


02B9 C05C 






LD 


SLDBE 


02bA 0480 


02E7 




STO 


I ADORS 


02BC C05A 






LD 


AODRS 


02BD F062 






EOR 


UPRLN 


028E 4C98 


0285 


* 


BSC 


1 FILL,*- 


0290 C056 




LD 


ADORS 


0291 8056 






A 


HOOOl 


0292 70F5 




* 
* 
* 
FLIP 


MOX 


FlLL+3 








CK AND 1 


0293 0000 




DC 


*-* 


0294 D052 






STO 


ADDRS 


0295 C480 


02E7 




LD 


I ADDRS 


0297 0052 






STO 


MAS 


0298 F04D 






EOR 


SLDBE 


0299 4420 


0392 


^ 


BSI 


L ERROR, 2 


029B C0E6 






LO 


COMPL 


029C D480 


02E7 




STO 


I ADDRS 


029E C04e 






LO 


ADORS 


029F F04B 






EOR 


EN DPT 


02A0 4C18 


02A5 




BSC 


L •+3,*- 



GET STARTING ADDRESS 

GET DATA WORD 
STO DATA WORD 



BR IF LAST ADDRESS 
INCRE ADDRESS BY ONE 
CK AND COMPLEMENT OOOO/FFFF PATTERN 
SAVE STARTING ADDRESS 



DATA WORD CORRECT 

•NO, BRANCH TO ERROR RTN 



STORE NEW WORD 

BR IF LAST ADDRESS 



DATE 
EC NO. 



15FEB68 
420403 



3B002740 

3B00275O 

3b002760 

3B002770 

3B002780 

3B002790 

3B002800 

3B002810 

3B002820 

3B002830 

3B002840 

3B002850 

3B002860 

3B002870 

3B002880 

3B002890 

3B002900 

3B002910 

3B002920 

3B002930 

3B002940 

3B002950 

3B002960 

3B002970 

3B002980 

3B002990 

3B003000 

3B0030L0 

38003020 

3B003030 

3B003040 

3B003O50 

3B003060 

3B003070 

3B003080 

3B003090 

38003100 

3B003110 

38003120 

3B003130 

38003140 

3B003I50 

38003160 

38003170 

38003180 

38003190 

3B003200 

38003210 

38003220 

38003230 

38003240 

38003250 

3B003260 

3B003270 

3B003280 

38003290 

38003300 

3B003310 

3B003320 

3B003330 

3B003340 

3B003350 

3B003360 

38003370 

3B003380 

3B003390 

3B003400 

3B003410 
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02A2 C044 




LO 


AODRS 




3b003420 






02A3 8048 




A 


INCRE 


INCRE ADDRESS 


38003430 






02A4 70EF 


« 


MOX 


FLIP*1 




3B003440 
3B003450 






02A5 C040 




LD 


SLDBE 




3b003460 






02A6 OODB 




STO 


COMPL 




3B0O347O 






02A7 F041 




EOR 


HFFFF 




3B003480 






02A8 D03D 




STO 


SL08E 




3b003490 






02A9 4C80 0293 


« 


BSC 


I FLIP 




3b003500 
38003510 








* 




CK AND COMPLEMENT ADDRESS PATTERN 


3b003520 








* 








3B003530 






02AB 0000 


AORCK 


OC 


•-* 




38003540 






02 AC DO 3 A 




STO 


AODRS 




38003550 






02A0 F0D4 




EOR 


COMPL 




3b003560 






02 AE 0037 




STO 


SL08E 




3b003570 






02AF C480 02E7 




LD 


I AOORS 




38003580 






0281 0038 




STO 


WAS 




38003590 






0282 F033 




EOR 


SLDBE 


DATA WORD CORRECT 


3B003600 






0283 4420 0392 


* 


BSI 


L ERROR, Z 


«N0, BRANCH 


38003610 
3b003620 






02B5 C030 




LO 


SLDBE 




3B003630 






0286 F032 




EOR 


HFFFF 




3b003640 






02B7 0480 02E7 




STO 


I ADDRS 


STORE COMPLEMENT 


3B003650 






0289 C02D 




LO 


ADDRS 




3b003660 






02 BA F030 




EOR 


ENDPT 


. 


38003670 






0288 4C18 02CO 


* 


BSC 


L *+3,*- 


BR IF LAST ADDRESS 


3B003680 
35003690 






0280 C029 




LD 


ADDRS 




38003700 






028E 8020 




A 


INCRE 


INCRE ADDRESS 


38003710 






02BF 70EC 


« 


MDX 


ADRCK+l 




38003720 
3B003730 






02C0 COCl 




LO 


COMPL 




3B003740 






02C1 F027 




EOR 


HFFFF 




3BO03750 






02C2 OOBF 




STO 


COMPL 




3B003760 






02C3 4C80 02A8 


* 


BSC 


I ADRCK 




3B003770 
38003780 








« 




CK AND COMPLEMENT 5555/AAAA PATTERN 


3B003790 








* 








38003800 






02C5 0000 


CHEX 


OC 


*-* 




38003810 






02C6 0020 




STO 


ADDRS 




38003820 






02C7 C480 02E7 




LD 


I AODRS 




3B003830 






02C9 0020 




STO 


WAS 




38003840 






02CA FOIB 




EOR 


SLDBE 


DATA WORD CORRECT 


38003850 






02C8 4420 0392 


* 


BSI 


L ERROR, 2 


*N0, BRANCH 


38003860 
38003870 






02CD C018 




LD 


SLDBE 




38003880 






02CE FOIA 




EOR 


HFFFF 




38003890 






02CF D480 02E7 




STO 


I ADORS 


STORE COMPLEMENT 


38003900 






0201 0014 




STO 


SLDBE 




38003910 






0202 C014 




LO 


AODRS 




38003920 






0203 F017 




EOR' 


ENDPT 




38003930 






0204 4C18 0209 


* 


BSC 


L *+3,+- 


BR IF LAST ADDRESS 


38003940 
38003950 






0206 COlO 




LD 


ADORS 




3b003960 






02D7 8014 




A 


INCRE 


INCRE ADDRESS 


38003970 






0208 70ED 


* 


MDX 


CHEX+l 




38003980 
38003990 






0209 C0A8 




LD 


COMPL 




3B004000 






02DA FOOE 




EOR 


HFFFF 




38004010 






0208 00A6 




STO 


COMPL 




38004020 






02DC 4C80 02C5 


* 


BSC 


I CHEX 




38004030 
38004040 








* 




INCREMENT 


FROM LOWER TO UPPER CORE 


38004050 








• 








3B004060 






02UE 0000 


UP 


OC 


«-« 




38004070 






020F COOS 




LD 


HOOOl 




38004080 






02E0 DOOB 




STO 


INCRE 


SET UP ADORS INCREMENT 


38004090 




DATE 


15FE868 










PROG 10 


03B0-0 


EC NO. 


420403 
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02E1 





CODE 






LO 




UPRLM 




3B004100 






02E2 





0008 






STO 




ENOPT 


SET LAST ADDRESS 


3B004I10 






02E3 





COOB 






LO 




LWRLH 


SET FIRST ADDRESS 


3B004120 






02£4 





4C80 


02DE 


* 


BSC 


I 


UP 




3B004130 
3B004140 














• 






PROGRAH CONSTANTS 


3B004150 














* 










3B004160 






02E6 





0000 




SLDBE 


DC 




*-* 




3B004170 






02E7 





0000 




AOORS 


DC 




*-* 




3B004180 






02E8 





0001 




HOOOl 


DC 




/OOOl 




3B004190 






02E9 





FFFF 




HFFFF 


DC 




/FFFF 




3B004200 






02EA 





0000 




MAS 


DC 




*-» 




3B004210 






02EB 





0000 




ENOPT 


OC 




*-• 




3B004220 






02EC 





0000 




INCRE 


DC 




*-* 




3B004230 






02E0 





0000 




TENP 


DC 




*-* 




3B004240 






02EE 





8000 




H8000 


DC 




/8000 




3B004250 






02EF 





0800 




LHRLM 


OC 




/0800 




3B004260 






02F0 





0000 




UPRLM 

* 
* 
* 


DC 




*-* 
DECREMENT 


FROM UPPER TO LOWER CORE 


3B004270 
3B004280 
3B004290 
3B004300 






02H 





0000 




DOWN 


OC 




*-* 




3B004310 






02H2 





C0F6 






LD 




HFFFF 


SET UP ADDRESS INCRE 


3B004320 






02F3 





D0F8 






STO 




INCRE 




3B004330 






02F4 





COFA 






LO 




LWRLN 




3B004340 






02F5 





OOFS 






STO 




ENOPT 


SET UP LAST ADDRESS 


3B00«350 






02F6 





C0F9 






LD 




UPRLM 


SET UP FIRST ADDRESS 


3B004360 






02F7 





4C80 


02FI 


* 
* 
* 


BSC 


I 


OOHN 
CHECK BIT 


BY BIT PATTERN 


3B004370 
3B004380 
3B004390 
3B004400 






02f9 





0000 




FLOAT 


DC 




*-• 




3B004410 






02FA 





C0F4 






LO 




LURLN 




3B004420 






02FB 





OOEB 






STO 




ADDRS 


SAVE ADDRESS 


3B004430 






02FC 





COFl 






LD 




H8000 




3B0C4440 






02F0 





F084 






EOR 




COMPL 




3B004450 






02FE 





00E7 






STO 




SLOBE 




3B004460 






02FF 





0480 


02E7 




STO 


I 


ADDRS 


STORE DATA WORD 


3B004470 






• 0301 





C480 


02E7 




LD 


I 


AOORS 




3B004480 






0303 





D0E6 






STO 




WAS 




3B004490 






0304 





FOEl 






EOR 




SLDBE 


DATA CORRECT 


3B004500 






0305 





4420 


0392 


* 


BSI 


L 


ERROR. Z 


*N0» BRANCH 


3B004510 
3B004520 






0307 





CODE 






LD 




SLDBE 




3B004530 






0308 





F400 


0282 




EOR 


L 


COMPL 


LAST SHIFT 


3B004540 






030A 





4C04 


030E 


* 


BSC 


L 


**2,E 


*N0, BRANCH 


3B004550 
3B004560 






030C 





1801 






SRA 




1 


SHIFT DATA 


3B004570 






030D 





70EF 




* 


MOX 




FLOAT+4 




3B004580 
3B004590 






030E 





CODS 






LD 




ADDRS 




3B004600 






030F 





FOEO 






EOR 




UPRLM 




3B004610 






0310 





4C98 


02 F9 


* 


BSC 


I 


FLOAT,*- 


BR IF LAST ADDRESS 


3B004620 
3B004630 






0312 





C0D4 






LD 




AODRS 




3B004640 






0313 





80 D4 






A 




HOOOl 


INCRE ADDRESS 


3B004650 






0314 





70E6 




* 


MDX 




FL0AT4'2 




36004660 
3B004670 














• 






STORE WORST CASE PATTERN 


3B004680 














* 










3B004690 






0315 





0000 




WORST 


OC 




*-* 




3b004700 






0316 





COOB 






LO 




LWRLM 




3B004710 






0317 





OOCF 






STO 




AOORS 


SAVE ADDRESS 


3B004720 






0318 





4400 


0352 




BSI 


L 


FIND 


FIND IF 0000 OR FFFF 


3B004730 






031A 





0480 


02E7 




STO 


1 


AOORS 


STORE DATA 


3B004740 






031C 





COCA 






LD • 




ADDRS 




3B004750 






0310 





F002 






EOR 




UPRLM 




3B004760 






031E 





4C98 


0315 




BSC 


I 


WORST, ♦- 


BR IF LAST ADDRESS 


3B004770 




DATE 


15FEB68 














PROG ID 


03B0-0 


EC NO. 


420403 














PAGE 


4 
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0320 C0C6 

0321 80C6 

0322 ^0F4 



0323 0000 

0324 COCA 

0325 OOCl 

0326 C480 02E7 

0328 OOCl 

0329 4018 032E 

0328 FOBO 
032C 4420 0360 

032E COBB 
032F FOCO 

0330 4C98 0323 

0332 C0B4 

0333 80B4 

0334 70F0 



0335 0000 

0336 COBS 

0337 OOAF 

0338 C480 02E7 
033A OOAF 
033B 4C18 0350 

033D F0A8 

03 3E 4420 036D 

0340 0480 02E7 
0342 74FF 027F 

0344 70F3 

0345 COAl 

0346 F0A9 

0347 4C98 0335 

0349 C400 0283 

0348 0400 027F 
0340 C099 
034E 8099 
034F 70E7 

0350 F098 

0351 70EE 



LD 

A 

MDX 



ADDRS 
HOOOl 
WORST+2 



INCRE ADDRESS 



* 
* 

CHECK 



DC 
LD 
STO 
LO I 
STO 
BSC L 

EOR 
BSI L 

LD 
EOR 
BSC I 

LD 

A 

MOX 



* 
* 
* 
SHAKE 



* 
STORE 



0352 0000 

0353 C093 








INVRT 

* 

FIND 



OC 
LO 
STO 
LO I 
STO 
BSC L 

EOR 
BSI L 

STO I 
MOX L 
MOX 

LO 
EOR 
BSC I 

LO L 
STO L 
LD 

A 
MOX 

EOR 
MOX 



0354 
0355 
0356 
0357 
0358 



1806 
0097 
1802 
F095 
4C04 035C 



035A 1010 
035B 7001 

035C C08C 



DC 

LO 

SRA 

STO 

SRA 

EOR 

BSC L 

SLA 
MDX 

LD 



CHECK WORST CASE PATTERN 



♦-* 

LWRLN 

AOORS 

AOORS 

WAS 

*+3,+- 

HFFFF 
ERR,Z 

AOORS 
UPRLM 
CHECK, +- 

ADDRS 
HOOOl 
CHECK'f2 



SAVE ADDRESS 



BR IF DATA ZERO 

COMPLEMENT DATA 

BR TO ERROR RTN IF NOT 



BR IF LAST ADDRESS 
INCRE ADDRESS 



CK AND COMPLEMENT 4 TINES 



*-* 

LWRLN 

ADDRS 

ADDRS 

WAS 

INVRT,*- 

HFFFF 
ERR,Z 

AOORS 
COUNT, -1 
SHAKE-i-3 

ADDRS 
UPRLM 
SHAKE, +- 

H0004 
COUNT 
ADDRS 
HOOOl 
SHAKE-»^2 

HFFFF 
STORE 



SAVE ADDRESS 



BR DATA WORD ZERO 

COMPL DATA 

BR IF NOT ZERO 

STORE NEW DATA 



BR IF LAST ADDRESS 

INCRE ADDRESS 
COMPLEMENT DATA 



DETERMINE IF DATA S/B 0000 OR FFFF 



*-* 

ADDRS 

6 

TEMP 

2 

TEMP 

*+2,E 



16 
*+l 

HFFFF 



AOORS BITS 7 AND 9 
BOTH OR BOTH 1 
*N0, BRANCH 



COMPLEMENT DATA FOR 



3B004780 
3B004790 
3B004800 
3B004810 
3B004820 
38004830 
3B004840 
3B004850 
3B004860 
3B004B70 
3B004880 
3B004890 
3B004900 
3B004910 
3U004920 
3B004930 
3B004940 
3B004950 
3B004960 
3B004970 
3B004980 
3B004990 
3B005000 
3B005010 
3B005020 
3b005030 
3B005040 
3B005050 
3B005060 
3B005070 
3B005080 
3B005090 
3U005100 
3B005110 
3B005120 
3B005130 
3B005140 
3B005150 
3B005160 
3B005170 
3B005180 
3B005190 
3B005200 
3B005210 
3B005220 
3B005230 
3B0O524O 
38005250 
3 BOO 5 260 
3B005270 
3B005280 
38005290 
3B005300 
3B005310 
3B005320 
3B005330 
3B005340 
3B005350 
3B005360 
3B005370 
3B005380 
3B005390 
3B005400 
3B005410 
3B005420 
3B005430 
3B005440 
3B005450 



DATE 
EC NO. 



15FEB68 
420403 



PROG ID 
PAGE 



03B0-0 
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DATE 
EC NO. 



03^0 F400 02B2 




EOR 


L 


COMPL 


COMPLEMENT WtJRST CASE 


38005460 




03bF 0086 




STO 




SLOBE 




3B005470 




0360 C400 027F 




LO 


L 


COUNT 


DATA COMPL ODD NO. TIMES 


3B005480 




0362 4C0* 0367 


* 


BSC 


L 


*+3,E 


«YES, BRANCH 


3B005490 

3B005500 




036* GOBI 




LD 




SLOBE 




3B005510 




0365 4C80 0352 


* 


BSC 


I 


FIND 




3B005520 
3B005530 




0367 C400 02E6 




LO 


L 


SLDBE 




3 BOOS 540 




0369 F400 02E9 




EOR 


L 


HFFFF 


COMPLEMENT DATA 


3B005550 




036B 4CB0 0352 


« 


BSC 


I 


FIND 




3B005560 
36005570 






• 






ERROR IN 


WORST CASE PATTERN 


3B0055SO 






* 










3B005590 




0360 0000 


ERR 


DC 




*-* 




3B005600 




03bE <V400 0352 




BSl 


L 


FIND 


FIND GOOD DATA 


3B005610 




0370 0400 02E6 




STO 


L 


SLDBE 




3B005620 




0372 4400 0392 




BSI 


L 


ERROR 


GO TO ERROR RTN 


3B005630 




0374 F400 02E9 




EOR 


L 


HFFFF 




3B005640 




0376 4C80 0360 


* 


BSC 


I 


ERR 




3B005650 
38005660 






* 






CK PASS COUNT AND LOCK ON ERR 


3B005670 






* 










3B005680 




0378 0000 


LOKFN 


DC 




*-• 




3B005690 




0379 7401 0284 




NOX 


L 


PASS.l 




3B005700 




037B C400 0284 




LO 


L 


PASS 




3B005710 




037D 4C84 0378 




BSC 


I 


LOKFN. E 


BR IF COUNT ODD 


3B005720 




037F 1010 




SLA 




16 




3B005730 




03a0 0400 0284 




STO 


L 


PASS 




3B005740 




03112 7400 0400 




MDX 


L 


ERRSH 


ERROR SN ON 


3B005750 




0384 7004 


* 


NOX 




*+4 


*YES BRANCH 


3B005760 
3B005770 




0385 7401 0378 




MDX 


L 


LOKFN, 1 


ADD ONE TO RETURN 


3B005780 




0387 4C80 0378 


* 


BSC 


I 


LOKFN 




3B005790 
3B005800 




0389 086C 




XID 




ROSWS 


READ SWITCHES 


3B0O581O 




038A C400 040F 




LD 


L 


SWS 




3B005820 




038C lOOC 




SLA 




12 


LOCK ON ERR FUNC SELECTED 


3B005830 




0380 4CA8 0378 


» 


BSC 


1 


LOKFN, Z-^ 


*YES, BRANCH 


38005840 
3B005850 




038F 1010 




SLA 




16 




3B005860 




0390 007C 




STO 




ERRSH 


CLEAR ERROR SW 


3B005870 




0391 70F3 


* 


MDX 




L0KFN4^13 




3B005880 
3B005890 






i,90**m*9******»************************************ 3B005900 






• 










3B005910 






« 






ERROR ROUTINE 


3B005920 






• 










3B005930 






».»»»»««»»♦»»»»*••♦*♦»*»»♦♦*♦**♦»♦»»*♦***»*»****»»» 3B005940 






• 










3B005950 




0392 0000 


ERROR DC 




*-• 




38005960 




0393 CCOO 0000 




LDD 


L 







3B005970 




0395 DCOO 0404 




STD 


L 


SAVEl 




3B005980 




0397 C85C 




LDD 




LINK 




3B005990 




0398 DCOO 0000 




STD 


L 





SET UP RESTART 


3B006000 




039A 085B 




XIO 




RDSMS 


READ SWS 


3B006010 




039B C073 




LO 




SMS 




3B006020 




039C E06E 




AND 




HOOAE 




3B006030 




0390 F06E 




EOR 




H0006 


ILLEGAL SWITCH COMBINATION 3B006040 




039E 4C20 03A2 


• 


BSC 


L 


•♦2,Z 


«N0, BRANCH 


3B006050 
3B006060 




03A0 3007 




WAIT 


7 


ERR-ILLEGAL SWS 


3B006070 




03A1 70F5 


• 


MDX 




ERR0R>5 




3B006080 
3B006090 




03A2 C400 040E 




LO 


L 


FUNNO 




3B006100 




03A4 8400 02E8 




A 


L 


HOOOl 




3B006110 




03A6 8069 




A 




NOTBL 




3B006120 




03A7 0001 




STO 




•♦I 




3B006130 




15FEB6S 
420403 












PROG ID 
PAGE 


0380-0 
5 



DATE 
EC NO. 



03A8 C400 0000 




LO 


L 


• -* 




3B006140 




03AA 0400 049E 




STO 


L 


MSG07+3 


PUT FUNC. NO. IN MSG 


3B006150 




03AC 4400 043B 




BSI 


L 


PRINT 


PRINT ERROR MSG 


3B006160 




03AE 8492 




DC 




MSG05+/8000 


3B006170 




03Af 8496 




DC 




MSG06+/6000 


3B006180 




03B0 049B 


m 


DC 




MSG07 




3B006190 
3B006200 




03B1 C05D 




LO 




SWS 




3B006210 




03B2 lOOE 




SLA 




14 




3B00622O 




03B3 4C28 03C6 


* 


BSC 




NWAIT, Z+ 


BY IF BYPASS WAIT 


3B006230 
3B006240 




03B5 C400 02E6 




LD 




SLOBE 


GET GOOD DATA 


3B006250 




03B7 1890 




SRT 




16 


PUT IN 


3B006260 




03B8 C400 02EA 




LO 




WAS 


BAD DATA IN A 


3B006270 




03BA 3004 


« 


WAIT 




4 


ERROR WAIT 


3B006260 
3B006290 




03BB C400 040E 




LD 




FUNNO 




3B006300 




03BD 8400 02E8 




A 




HOOOl 




3B006310 




03BF 1888 




SRT 




8 


PUT FUNCTION NO. 


3B006320 




03C0 C400 0109 




LD 




RIO 


AND RTN NO. 


3B006330 




03C2 1888 




SRT 




8 


IN Q REG 


3B006 340 




03C3 C400 02E7 




LD 




ADORS 


ADDRS IN ACC 


3B006350 




03C5 3005 


* 


WAIT 




5 


ERROR WAIT 


3B006 360 
38006370 




03C6 082F 


NWAIT 


XIO 




ROSWS 


READ SWS 


3B006380 




03C7 C047 




LO 




SWS 


• 


3B0063S0 




03C8 0044 




STO 




ERRSW 


SET ERROR SWITCH 


3B006400 




03C9 1008 




SLA 




8 




3B006410 




03CA 4C28 03D6 


* 


BSC 


L 


LOOPA, Z+ 


BR TO LOOP ADDRESS 


3B006420 
3B006430 




03CC CCOO 0404 




LDD 




SAVEl 




3B006440 




03CE DCOO 0000 




STO 









3B006450 




03D0 C400 02E6 




LD 




SLOBE 




3B006460 




0302 D480 02E7 




STO 




ADORS 




3B006470 




0304 4C80 0392 




BSC 




ERROR 




3B006480 




0306 C400 0280 


LOOPA 

* 


LO 




ALTNT 




3B006490 
3B006500 




0308 8031 




A 




H7000 


FIND LAST GOOD DATA 


3B006510 




0309 0001 




STO 




♦♦1 


WORD STORED 


3B006520 




03DA C400 02E6 




LD 


L 


SLOBE 




3b006530 




03DC 7000 


* 


NOX 




« 




3B006540 
3B006550 




0300 7011 




MDX 




ALTOO 




3B006560 




030E 7013 


* 


MDX 




ALTOl 




3B006570 
3B0O6580 




03DF 1001 


ALT02 


SLA 




1 




3B006590 




03E0 8400 02E8 




A 




HOOOl 




3B006600 




03E2 0480 02E7 




STO 




ADDRS 


STO LAST GOOD DATA 


3B006610 




03E4 C400 02E6 




LD 




SLOBE 




3B006620 




03E6 0480 02E7 




STO 




ADORS 


STO LAST BAD DATA 


3B006630 




03E8 C480 02E7 




LO 




ADORS 




3B006640 




03EA F400 02E6 




EOR 




SLOBE 


DATA GOOD NOW 


3B006650 




03EC 4C20 0393 


« 


BSC 




ERROR -fl.Z 


«N0, BRANCH 


3B006660 
3B006670 




03EE 7007 




MDX 




NWAIT 




3B006680 
3B006690 




03EF F400 02E9 


ALTpO EOR 


L 


HFFFF 




3B0067OO 




03F1 70F0 




MDX 




ALT02+3 




3B006710 
3B006720 




03F2 1001 


ALTOl SLA 




1 




38006730 




03F3 70EE 




MDX 




ALT02O 
CONSTANTS 


lOCC TABLE 


3B006740 
3B006750 
3B006760 
3B006770 




03F4 0000 




BSS 


E 






33006780 




03F4 4C00 0161 


LINK 


BSC 


L 


CRSIZ 




3B006790 




03F6 040F 


ROSWS DC 




SWS 




3B006800 




03F7 3A00 




DC 




/3A00 




3B006810 




15FEB68 












PROG ID 
PAGE 


0360-0 
5A 
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03F8 0475 


VECTR OC 


INT 




03F9 0479 


DC 


STOP 




03FA 0000 


SENSE OC 







03FB OFOl 


DC 


/OFOl 




03FC 0408 


RETRN OC 


CR 




03FD 0900 


DC 


/0900 




03FE 0402 


PRNTl DC 


CHARl 




03FF 0900 


DC 


/0900 




0400 0403 


PRNT2 DC 


CHAR2 




0401 0900 


DC 


/0900 




0402 0000 


CHARl DC 


*-* 




0403 0000 


CHAR2 DC 


*-♦ 




0404 0000 


SAVEl OC 


*-* 




0405 0000 


OC 


♦-* 




0406 0000 


SAVE2 OC 


•-* 




0407 0000 


OC 







0408 8500 


CR DC 


/8500 




0409 0000 


MSGAD OC 


*-• 




040A 7000 


H7000 DC 


/7000 




040B OOAE 


HOOAE DC 


/OOAE 




040C 0006 


H0006 DC 


/0006 




040D 0000 


ERRSW OC 







040E 0000 


FUNNO DC 


*-• 




040F 0000 


SHS DC 


•-* 




0410 0410 


NOTBL OC 


NOTBL 




0411 C4FC 


OC 


/C4FC 


01 


0412 C4D8 


OC 


/C408 


02 


0413 C40C 


OC 


/C40C 


03 


0414 C4F0 


DC 


/C4F0 


04 


0415 C4F4 


OC 


/C4F4 


05 


0416 C4D0 


DC 


/C4D0 


06 


0417 C4D4 


OC 


/C404 


07 






PROGRAM END ROUTINE 



0418 
041A 
0418 
041C 
041D 
041F 
0420 
0421 
0422 



4400 043B 

8481 

0484 

C807 

DC 00 0000 

08D6 

COEE 

lOOB 

4C28 018E 



END BSI L PRINT PRINT END MSG 
DC MSG02-»/8000 
OC MSG03 
LOO LINK 

STO L 

XIO ROSWS READ SHS 
LD SMS 

SLA 11 LOOP PROGRAM 

BSC L START, 2+ ♦YES, BRANCH 



0424 3002 

0425 0800 

0426 C0E8 

0427 4C04 0161 



0429 COOF 
042A D400 0008 
042C COOD 
042D 0400 OOOC 
042F 6300 

0430 6078 

0431 C400 0008 

0433 D005 

0434 C400 OOOC 



UAIT 

XIO 

LO 

BSC 



END PROGRAM 



* 
* 
* 



RDSMS 

SWS 

CRSIZ.E 



READ SHS 
BR IF SU 15 ON 
LOADER LINKAGE 



LO 
STO 
LD 
STO 
LOX 
* 

LOX 

LDLNK LO 
STO 
LO 



SVINT 
/8 

SVINT+1 
/C 
3 

/0078 

/8 

SVINT 

/C 



LOAD NEXT PROG. 



38006820 

3B006830 

3B006840 

3B006B50 

3B006860 

3B006870 

3B006880 

3B006890 

3B006900 

3B006910 

3B006920 

3B006930 

3B006940 

3B006950 

3B006960 

3B006970 

3B006980 

38006990 

3B007000 

3B007010 

3B007020 

3B007030 

3B007040 

3B007050 

3B007060 

3B007070 

3B007080 

3B007090 

3B007100 

3B007110 

3B007120 

3B00713O 

3B007140 

3B007150 

3B007160 

3B007170 

3B007180 

3B007190 

3B007200 

3B007210 

3B007220 

3B007230 

3B007240 

3B007250 

3B007260 

3B007270 

3B007280 

3B007290 

36007300 

3B007310 

3B007320 

3B007330 

3B007340 

3B007350 

3B007360 

3B007370 

3B007380 

3B007390 

3B007400 

3B0074L0 

3B007420 

3B007430 

3B007440 

3B007450 

3B007460 

3B007470 

3B007480 

3B007490 



0436 0003 

0437 4C00 0161 

0439 0000 
04 3 A 0000 



STO 
BSC 



SVINT+1 
CRSIZ 



0438 0000 
043C 08B9 
0430 COOl 
043E lOOD 
043F 4C10 0448 



0441 
0443 
0445 



7401 043B 
C480 0438 
4C10 046D 



0447 70F9 



0448 
044A 
044C 
0440 
044F 
0450 

0451 
0453 
0454 
0456 

0458 

045A 
045C 
0450 
045E 
045F 
0460 



CCOO OOOC 
OCOO 0406 
C8AB 

DCOO OOOC 
08AC 
3006 

C480 043B 
00B5 

C480 0409 
F400 02E9 
4C18 0466 

F400 02E9 

00A5 

1008 

D0A4 

089E 

3006 



0461 089E 

0462 3006 

0463 7401 0409 

0465 70EE 

0466 C480 043B 
0468 4C10 0460 

046A 7401 043B 
046C 70E4 



0460 
046F 
0471 
0473 
0475 
0476 
0477 



7401 0438 
CCOO 0406 
OCOO OOOC 
4C80 0438 
0000 
0883 
4CC0 0475 



0479 0000 
047A 3008 
047B 4CC0 0479 



SVINT OC *-« 

OC *-* 

« 

* PRINT ROUTINE 



PRINT OC 
XIO 
LO 
SLA 
BSC 

* 

GTOUT MOX 
LO 
BSC 

* 

MOX 

* 

PRNIT LOO 
STO 
LOO 
STO 
XIO 
HAIT 

GTADR LD 
STO 
LO 
EOR 
BSC 



*-• 
RDSHS 
SHS 
13 
PRNIT, - 

PR I NT, 1 

PRINT 

OUT,- 

6T00T 

12 

SAVE2 

VECTR 

12 

RETRN 

6 



1 PRINT 
MSGAD 
I MSGAD 
L HFFFF 
L MSGEN,+- 



EOR 
STO 
SLA 
STO 
XIO 
UAIT 

XIO 
UAIT 

MOX 
MOX 



MSGEN LO 
BSC 



OUT 



INT 



MOX 
MOX 

MOX 

LOO 

STO 

BSC 

OC 

XIO 



HFFFF 

CHARl 

8 

CHAR2 

PRNTl 

6 

PRNT2 

6 

MSGAD, 1 
GTADR4-3 



I PRINT 
L OUT,- 

L PRINT, 1 
GTADR 

L PRINT, 1 
L SAVE 2 
L 12 

I PRINT 

«-« 
SENSE 



BOSC I INT 

* 

STOP OC *-♦ 

HAIT 8 

BOSC I STOP 



READ SHS 

BYPASS PRINT ON 
•NO, BRANCH 



SET INT VECTOR 
CARRIER RETURN 



GET MSG AOORS 
GET CHAR TO PRINT 
BR IF TERMINATOR 

STO FIRST CHAR 

STO SECOND CHAR 
PRINT FIRST CHAR 

PRINT SECOND CHAR 

INCRE MSG TABLE AOORS 

BR IF LAST MSG SECTION 



SENSE OSN AND RESET 



PROG STOP HAIT 



3B007500 
3B00751O 
3B007520 
3B007530 
3B007540 
3B007550 
*«** 3B007560 
3B007570 
3B007580 
3B007590 
***• 3B007600 
3B007610 
3B007620 
3B007630 
3BQ07640 
3B007650 
3B007660 
3B007670 
3B007680 
3B007690 
3B007700 
3B007710 
3B007720 
38007730 
3B007740 
3B007750 
3B007760 
3B007770 
3B007780 
3B007790 
3B007a00 
38007810 
38007820 
3B007830 
3B007840 
3B007850 
3B007360 
3B007870 
3B007880 
3B007890 
3B007900 
3B007910 
3B007920 
38007930 
3B007940 
3B007950 
3B007960 
3B007970 
3B007980 
3B007990 
3BO0BOOO 
3B008010 
3B008020 
3B008030 
3B008040 
3B008050 
3B008060 
3B00B070 
3B008080 
3B008090 
3B008100 
3B008110 
3B008120 
3B008130 
3B008140 
3B008150 
3B008160 
38008170 
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047D 9A9E 


MSGOl 


DC 


/9A9E 


ST 


047E 3E62 




DC 


/3E62 


AR 


047F 9E21 




DC 


/9E2I 


T 


04B0 FFFF 





DC 


/FFFF 




04BI 3676 


MSG02 


DC 


/3676 


EN 


0482 3221 




DC 


/3221 





04B3 FFFF 


^ 


DC 


/FFFF 




0484 2622 


MSG03 


DC 


/2622 


HI 


04B5 1626 




DC 


/1626 


GH 


04B6 211E 




DC 


/211E 


C 


04H7 5262 




DC 


/5262 


OR 


04BS 3621 




DC 


/3621 


E 


0489 9E36 




DC 


/9E36 


TE 


048A 9A9E 




DC 


/9A9E 


ST 


04aB FFFF 


MSG04 


DC 


/FFFF 




04oC IE52 


DC 


/1E52 


CO 


04(30 6236 




DC 


/6236 


RE 


O'.aE 219A 




DC 


/219A 


S 


04BF 22A2 




DC 


/22A2 


12 


04S>0 3621 




DC 


/3621 


E 


04Syl FFFF 


* 
MSG05 


DC 


/FFFF 




0492 0936 


DC 


/0936 


SR E 


0493 6262 




DC 


/6262 


RR 


04S/4 2121 




DC 


/2121 




0495 FFFF 


^ 


DC 


/FFFF 




0496 629E 


MSG06 


DC 


/629E 


RT 


0497 7621 




DC 


/7621 


N 


0498 0000 




DC 


*-• 


XX 


0499 2121 




DC 


/2121 




04VA FFFF 


# 


DC 


/FFFF 




049B 2112 


MSG07 


DC 


/2112 


F 


04yC 6276 




DC 


/B276 


UN 


0490 IE21 




DC 


/1E21 


C 


049E 0000 




DC 


*-* 


YY 


049F FFFF 




DC 


/FFFF 




04A0 0431 




END 


LDLNK 




NO STATEMENTS 


FLAGGED IN 


THE 


ABOVE ASSEMBLY 



3B008180 

3B008190 

3B0082OO 

3B00B210 

3B008220 

3B008230 

3B008240 

3B008250 

3B008260 

3B008270 

3B008280 

3B008290 

3B008300 

3B008310 

3B008320 

3B008330 

3B008340 

3B008350 

3B008360 

3B008370 

38008380 

3B008390 

3B008400 

3B008410 

3B00S420 

3B008430 

3B008440 

3B008450 

3B008460 

3B008470 

3B008480 

38008490 

38008500 

3B008510 

3B008520 

3B008530 

3B00SS40 

3B008550 

3B008560 

3B008570 

38008580 

3B008590 
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ADRCK 


02AB 




ADVNC 


01A6 




ALTNT 


0280 




ALTOO 


03EF 




ALTOl 


03F2 




ALT02 


03DF 




CHARl 


0402 




CHAR2 


0403 




CHECK 


0323 




CHEX 


02C5 




CNTRL 


0196 




COMPL 


0282 




COUNT 


027F 




CR 


0408 




CRSU 


0161 




DOWN 


02F1 




END 


0418 




ENDPT 


02EB 




ERR 


036D 




ERROR 


0392 




ERRSW 


040D 




FFFF 


OlDA 




FILL 


0285 




FIND 


0352 




FLIP 


0293 




FLOAT 


02F9 




FNOSZ 


0185 




FUNNO 


040E 




FUNll 


OlEO 




FUN12 


01E9 




FUN21 


0200 




FUN22 


0209 




FUN31 


0220 




FUN32 


023E 




FUN*2 


0258 




FUN61 


02 6A 




FUN62 


0271 




GTADR 


0451 




GTOUT 


0441 




HFFFF 


02E9 




HOOAE 


040B 




HOOOA 


0108 




HOOOl 


02E8 




H0002 


0281 




H0004 


0283 




H0006 


040C 




HIOOO 


0107 




H5555 


OlOB 




H7000 


040A 




H8000 


02EE 




INCRE 


02EC 




INT 


0475 




INVRT 


0350 




LDLNK 


0431 




LINK 


03F4 




LOKFN 


0378 




LOOPA 


0306 




LPRTN 


OlAC 




LRTN 


OlDC 


DATE 


li>FE668 


EC NO. 


420403 



EFERENCE 

REFERENCES 
01F3f01F5,01FB,0216,021A,021F,0225,02b8,028A,02BC,0290,0294,0295 
029Ct029E.02A2,02AC,02AF,02B7,02B9,0<!BD,02C6,02C7,02CF,02D2.02D6 
02 FB,02FF, 0301, 030E, 0312, 03 17, 031 A, 03 10,0320, 0325, 0326, 032E, 0332 
337, 0338, 0340, 0345,0340, 0353, 03C3, 0302, 03E2,03E6,03E8 
0202,020B,02BF,02C3 
OlAD 

0197, 024F, 0259,0306 
0300 
030E 

03F1,03F3 
03FEt045C 
0400, 045E 
026A, 0330, 0334 
02 33, 0246, 0208, 02DC 
01 FO, 02 10, 0248,0263, 0279 
0196,02 12, 0218, 02 ID, 022B,022D,023C, 02 3E, 0240, 025C,027D, 0298, 02A6 

02AD,02C0,02C2,02D9,02DB,02FD, 0308, 0350 

0266,0272,0342,0348,0360 

03FC 

017 1,0 184, 03F4, 0427, 0437 

01E9, 0209, 0244, 02F7 

OlAA 

029F,02BA,02D3,02E2,02F5 

032C,033E,0376 

0299, 0283, 02CB, 0305, 0372, 03A1, 0304, 03EC 

0194, 0382, 0390,03C8 

01DD,021C,025A 

01DE,028E*0292 

0318, 0365, 036B,036E 

01E2,01EB,02A4,02A9 

0251, 025E, 0300, 0310, 0314 

016C,0179 

0190, 01E7, 0207, 0238, 0256, 026F,03A2,03BB 

0IE6 

OlEF 

0206 

020F 

0237 

024A 

0262 

026E 

0278 

0465,0460 

0447 

027B,02A7, 0286, 02C1,02CE,02DA,02F2,032B,033D, 0350, 035C, 0369, 0374 

03EF,0456,045A 

039C 

0189 

0186, OlFO, 0227, 0240, 0291, 020F, 0313, 0321, 0333, 034E,03A4,03B0,03E0 

0258 

0271,0349 

039D 

0161 

0211, 022A 

0308 

02FC 

02A3,02BE,02D7,02E0,02F3 

03F8,0477 

033B 

04A0 

0166, 0173, 0178, 0397, 041C 

01E4, OlEO, 0204,0200, 0235, 0248, 0253, 0260, 026C, 02 76, 0370, 0385, 0387 

0380,0391 
03CA 

01C5,01C8,01CE 
01A9,01C7 
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LHRLM 


02EF 


MStAD 


0409 


HSGEN 


0466 


MSGOl 


0470 


NSG02 


0481 


MSG03 


0484 


MSG04 


048C 


MSG05 


0492 


NSG06 


0496 


MS607 


049 B 


NOTBL 


0410 


NWAIT 


03C6 


OUT 


046D 


PASS 


0284 


PRINT 


043B 


PRNIT 


0448 


PRNTl 


03FE 


PRNT2 


0400 


RDSMS 


03F6 


RETRN 


03FC 


RIU 


0109 


RTNl 


0100 


RTN2 


OlFl 


RTN3 


0211 


RTN4 


0240 


RTN5 


0265 


RTN6 


027B 


RTTBL 


OICF 


SAVEl 


0404 


SAVE2 


0406 


SENSE 


03FA 


SHAKE 


0335 


SIZE 


0106 


SLOBE 


02E6 


SLRTN 


01C4 


START 


018E 


STOP 


0479 


STURE 


0340 


STRTN 


01C2 


SVINT 


0439 


sws 


040F 


TEMP 


02ED 


UP 


020E 


UPRLM 


02F0 


VECTR 


03F8 


WAS 


02EA 


WORST 


031S 



01Fl,0287,02E3f 

0453«0454.0463 

0458 

0190, OICO 

041 A 

0191,0418 

0182 

0181, 03AE 

01B7.01C1,03AF 

03AA,03B0 

01B2,03A6,0410 

03B3,03EE 

0445,0468 

0199,0379,0378, 

017F,016E.01BE, 

043F 

045F 

0461 

019F,0389,039A, 

044F 

0193,01A6,01A8, 

0100 

01D1,01FF 

0102,0229 

0103,0255 

0104, 027E 

0105 

01AF,01CF 

0395, 03CC 

044A,046F 

0476 

0274,034^,0347, 

0162, 0168, 016E, 

022F,023A,0242, 

0201, 02FE, 0304, 

01A4 

0422 

03F9,047B 

0351 

01B0,01BC 

0429,042C,0433, 

01A1,01B9,01CA, 

0355,0357 

OlEO, 0200, 0214, 

018A,01F7,0221, 

044C 

0297,02B1,02C9, 

0268,031E,0322 



02F4,02FA, 0316, 0324, 0336 



0380 

03AC, 0418, 0441, 0443, 0451, 0466, 046A, 0460, 0473 



03C6,041F, 0425,0430 
01AC,01B1,01C0,03C0 



034F 

0170,0175,0185,0188,0180 

0286, 0289, 029 8, 02A5,02A8,02AE,02B2,02B5,02CA, 0200 

0307, 035F, 0364, 0367, 0370,0385, 0300, 030A,03E4,03EA 



0436 

038A,039B,03B1,03C7,03F6, 0420,0426, 0430 

0231, 02E4 

02BD,02E1,02F6,030F, 0310, 032F, 0346 



0303, 0328, 033A,03B8 
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ABS 








3B100020 






0000 










ORG 




/0960 




3B100030 






0960 





03B1 






OC 




/03B1 


PID 


3B100040 
3B 100050 














«••#«*****«***»«»»**««*»«*••**«*•««**«**«****«•«««* 


3B100060 
























3B 100070 




















PROGRAM 


INITIALIZATION 


3B100080 
3B 100090 














m****mm*m»m»**m**mmm*****mm*****m**»**9»mmm*m*mm*mm 


3B100100 
























3B100110 




















FIND CORE SIZE 


3B100I20 
























3B100130 






0961 





C071 




CRS12 


LO 




HIOOO 




3B100140 






0962 





00 6F 






STO 




SIZE 


SET 8K CORE SIZE 


3B100150 






0963 





1010 






SLA 




16 




3B100160 






09 64 





0400 


0000 




STO 


L 





CLEAR AOORS 0000 


3B100170 






0966 





CCOO 


OBFO 




LOO 


L 


LINK 




3BI00180 






09 68 





DC80 


0902 




STD 


1 


SIZE 


STO RESTART LINKAGE 


3B100190 






09 6 A 





C400 


0000 




LO 


L 





DID URAP-AROUNO OCCUR 


3B100200 






09 6C 





4C20 


0985 


* 


BSC 


L 


FNDSZ.Z 


«YESt BRANCH 


3B100210 
3B100220 






09 6E 





C063 






LD 




SIZE 




3B100230 






096F 





1001 






SLA 




1 


INCRE SIZE BY 4K 


3B100240 






09 70 





D061 






STO 




SIZE 


IS SIZE OVER 32K 


3B100250 






0971 





4C10 


0963 


♦ 


BSC 


L 


CRSIZ+2, 


- *NOt BRANCH 


3B100260 
3B 1002 70 






0973 





CCOO 


OBFO 




LDO 


L 


LINK 




3B1002B0 






0975 





DC80 


0902 




STD 


I 


SIZE 


STO RESTART LINKAGE 


3B100290 






0977 





C400 


0000 




LD 


L 





DID URAP-AROUND OCCUR 


3B100300 


« 




09 79 





4C20 


0985 


* 


BSC 


L 


FNOS Z.Z 


*YESf BRANCH 


3B 1003 10 
3B100320 






097B 





CCOO 


OBFO 




LOO 


L 


LINK 




3B100330 






0970 





DCOO 


0000 




STO 


L 







3B100340 






097F 





4400 


0C23 




BSI 


L 


PRINT 


PRINT ERROR MSC 


3B100350 






0981 





8C7* 






OC 




MSG054/8000 


3B100360 






0982 





0C74 




* 


OC 




NSC04 




3B100370 
3B100380 






0983 





3003 






HAIT 




3 


ERR« CANNOT FIND CORE SIZE 


3B10039O 






0984 





70DC 




• 


HOX 




CRSIZ 


RETRY 


3B100400 
3B 1004 10 






0985 





C04C 




FNDS2 


LO 




SIZE 




3B100420 






0986 





9400 


0AE4 




S 


L 


HOOOl 


CORRECT CORE SIZE 


3B 100430 






0986 





D049 






STO 




SIZE 




3B100440 






0989 





3001 




* 


MAIT 




1 


HAIT FOR SUS. SIZE IN ACC 


3B100450 
3B100460 






098A 





4400 


0C23 


START 


BSI 


L 


PRINT 


PRINT START MSG 


3B 1004 70 






09 8C 





8C65 






DC 




MSGOl-^/8000 


3B100480 






0980 





0C6C 




* 


OC 




NSG03 




3B 100490 
3B100500 






098E 





1010 






SLA 




16 




3B100510 






098F 





0045 






STO 




RIO 




3B100520 






0990 





0400 


0C09 


• 


STO 


L 


ERRSM 




3B100S30 
3B100540 














************«»4>**************«*******««»««««**««««« 


3B100550 














* 










3B100560 














• 






ROUTINE 


SEQUENCE CONTROL 


3B100570 














* 










3B100580 














*•••••••*•••••»•♦»*••♦••*♦•••*»•»•»•»»»*»»*«*•••*•* 


3B100590 














* 










3B100600 






0992 





1010 




CNTRL 


SLA 




16 




3B100610 






0993 





0400 


0A7C 




STO 




ALTNT 




3B100620 






0995 





0400 


0A80 




STO 




PASS 




3B100630 






0997 





0400 


0A7E 




STO 




CONPL 




38 100640 






0999 





D400 


OCOA 




STO 




FUNNO 




3B100650 






099B 





OCOO 


0BF2 




XIO 




ROSWS 


READ SHS 


3B100660 






099 D 





C400 


0C06 




LO 




SHS 




3B100670 






099F 





1805 






SRA 




5 




3B100680 






09 AO 





4C04 


09C0 




BSC 


L 


SLRTN.E 


BR IF LOOP RTN SELECTED 


3B 100690 




DATE 


15FEB68 














PROG ID 


03B1-0 


EC NO. 


420403 














PAGE 
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V 










3B100700 






09A2 


7401 


0905 


AOVNC 


MOX 




RID,1 


ADVANCE TO NEXT RTN 


3B100710 






09A4 


C030 






LD 




RID 




3B100720 






09A5 


9032 






S 




LRTN 




3B100730 






09A6 


4C30 


0C14 


• 


BSC 




END, -2 


BR IF END OF PROGRAM 


3B100740 
36100750 






09A8 


C02C 




LPRTN 


LO 




RIO 




3B100760 






09A9 


4C08 


09A2 




BSC 




AOVNC, ■» 


BR IF RIO IS ZERO 


3B100770 






09AB 


801F 






A 




RTTBL 




3B100780 






09 AC 


0012 






STO 




STRTN-fl 


SET RTN START AODRS 


3B100790 






09A0 


C027 






LD 




RIO 




38100800 






09 AE 


8400 


OCOC 




A 




NOTBL 




3B100810 






09B0 


0001 






STO 




*♦! 


ENTER RTN NUMBER IN MSG 


3B100820 






09B1 


C400 


0000 




LD 




*-* 




38100830 






09B3 


0400 


0C80 


• 


STO 




MS606+2 




3B100e40 
3B100850 






09B5 


C400 


OCOB 




LO 




SHS 




3B100860 






09B7 


1009 






SLA 




9 


RTN START MSG SELCCTEO 


38100870 






09B8 


4C10 


09BE 


* 


BSC 




STRTN, - 


*N0, BRANCH 


38100880 
38100890 






09BA 


4400 


0C23 




BSI 




PRINT 


PRINT RTN START MSG 


38100900 






09BC 


8C6S 






OC 




MSG014-/8000 


38100910 






09B0 


0C7E 




* 


OC 




MSG06 




3B100920 
3B100930 


. 




09BE 


4C80 


0000 


STRTN 

* 


BSC 




*-* 


START TEST ROUTINE 


3B100940 
38100950 






09C0 


1803 




SLRTN 


SRA 




3 


. 


38100960 






09C1 


4C18 


09A8 


* 


BSC 




LPRTN, +- 


BR IF NO RTN SELECTED 


381009 70 
38100980 






09C3 


9014 






S 




LRTN 


. 


38100990 






09C4 


4C30 


09 A8 


» 


BSC 




LPRTN.Z- 


BR IF INVALID RTN NO. 


3B101000 
36101010 






09C6 


C400 


OCOB 




LD 




SHS_ 




38101020 






09C8 


1808 






SRA 




8 




38101030 






09C9 


DOOB 






STO 




RIO 


SELECT ROUTINf 


3B101040 






09CA 


7000 




• 
• 
* 


HOX 




LPRTN 
ROUTINE 


ADDRESS TABLE 


38101050 
38101060 
3B101070 
38101080 






09C8 


09CB 




RTTBL 


OC 




RTTBL 




38101090 






09CC 


0909 






OC 




RTNl 




38101100 






09C0 


09E0 






OC 




RTN2 




38101110 






C9CE 


OAOO 






OC 




RTN3 




3B1O1120 






09CF 


0A49 






OC 




RTN4 




38101130 






0900 


0A61 






OC 




RTN5 




38101140 






0901 


0A77 




• 
* 
m 


OC 




RTN6 
PROGRAM 


CONSTANTS 


38101150 
38101160 
38101170 
38101180 






0902 


0000 




SIZE 


DC 




*-*. 


CORE SIZE 


38101190 






09D3 


1000 




HIOOO 


DC 




/lOOO 




38101200 






0904- 


OOOA 




HOOOA 


DC 




/OOOA 




38101210 






0905 


0000 




RIO 


DC 




*-* 


ROUTINE NUMBER 


38101220 






09D6 


FFFF 




FFFF 


DC 




/FFFF 




38101230 






09D7 


5555 




H5555 


DC 




/5555 




38101240 






0908 


0006 




• LRTN 

* 


DC 




6 




33101250 
38101260 














38101270 












* 










38101280 












* 






TEST ROUTINE ONE 


38101290 












* 










38101300 












»*»»««»»«•««««««•««««•««»•*«••«•«•«••«««••••••••••• 


38101310 












* 










38101320 






0909 


COFC 




RTNl 


LD 




FFFF 




38101330 






09UA 


44O0 


0A81 


• 


BSI 


L 


FILL 


FILL CORE HITH FFFF 


38101340 
38101350 






09DC 


4400 


OADA 


FUNll 


BSI 


L 


UP 


INCRE LOW TO HIGH CORE 


3B101360 






090E 


4400 


OASF 




BSI 


L 


FLIP 


CK AND STORE 0000 


38101370 




DATE 


15rEB68 














PROG III 


0381-9 


EC NO. 


420403 
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DATE 
EC NO. 











* 










3B10I3S0 




09fc0 





4400 


0874 




BSI 


L 


LOKFN 


CK FOR LOCK ON ERR FUNC 


3B101390 




09E2 





70F9 




* 


MOX 




FUNll 




3BI01400 
3B101410 




09E3 





7401 


OCOA 




NDX 


L 


FUNNO.l 




3BI0I420 




09fc5 





4400 


OAED 


FUN12 


BSI 


L 


DOWN 


DECRE HIGH TO LOW CORE 


3B101430 




09E7 





4400 


0A8F 


« 


BSI 


L 


FLIP 


CK CORE AND STORE 0000 


3B101440 
3B101450 




0969 





4400 


0874 




BSI 


L 


LOKFN 


CK FOR LOCK ON ERR FUNC 


3B101460 




09tB 





70F9 




* 


MOX 




FUN 1 2 




3B101470 
3B101480 




09ec 





70A5 




» 


MOX 




CNTRL 


GO TO CONTROL 


3B101490 
3B101500 












^^0**^**********0*********************************** 


3B10I510 












* 










3B101520 












* 






TEST ROUTINE TMO 


3B101530 












* 










3B10I540 












*************************************************** 


3B101550 












* 










3B101560 




09b0 





C400 


OAEB 


RTN2 


LO 


L 


LWRLM 


FILL EACH CORE 


3B101570 




09tF 





0400 


0AE3 




STO 


L 


AOORS 


LOCATION WITH 


3B1015B0 




09F1 





D480 


0AE3 




STO 


I 


AOORS 


ADDRESS 


3B101590 




09F3 





F400 


OAEC 




EOR 


L 


UPRLN 




3B101600 




09F5 





4C18 


09FC 


* 


BSC 


L 


*+5,+- 


BR LAST ADDRESS 


3B101610 
3B101620 




09F7 





C400 


0AE3 




LD 


L 


AODRS 




3B101630 




09F9 





8400 


0AE4 




A 


L 


HOOOl 


INCRE ADDRESS BY ONE 


3B101640 




09FB 





70F3 




• 


NOX 




RTN2^2 




3B101650 
3B101660 




09FC 





4400 


OAOA 


FUN21 


BSi 


L 


UP 


INCRE LOW TO HIGH CORE 


3B101670 




09(-E 





4400 


0AA7 


• 


BSI 


L 


ADRCK 


CK AND COMPLEMENT 


3B101680 
3B101690 




OAOO 





4400 


0874 




BSI 


L 


LOKFN 


CK FOR LOCK ON ERR 


3B101700 




0A02 





70F9 




* 


NDX 




FUN21 




3B101710 
3BI01720 


...V 


0A03 





7401 


OCOA 




HOX 


L 


FUNNO.l 




3B101730 




0A05 





4400 


OAEO 


FUN22 


BSI 


L 


DOWN 


OECRE HIGH ro LOW CORE 


3B101740 




0A07 





4400 


0AA7 


* 


BSI 


L 


ADRCK 


CK AND COMPLEMENT 


3B101750 
3B101760 




0A09 





4400 


OB 74 




BSI 


L 


LOKFN 


LOCK ON FUNCTION 


3B101770 




OAUB 





70F9 




* 


HOX 




FUN22 




3B101780 
3B101790 




OAOC 





7085 




* 


NOX 




CNTRL 




3B101800 
3B101810 












*************************************************** 


3B101820 












* 










3B101830 












* 






TEST ROUTINE THREE 


3B101840 












* 










3B101850 












*************************************************** 


38101860 












* 










3B101870 




OAOO 





C0C9 




RTN3 


LD 




H5555 




3B10I880 




OAOE 





0400 


0A7E 




STO 


; 


COMPL 




3B101890 




OAIO 





4400 


OAOA 


* 


BSI 


L 


UP 


INCRE LOW TO HIGH CORE 


3B101900 
3B101910 




0A12 





0400 


0AE3 




STO 




AODRS 




3B101920 




0A14 





C400 


0A7E 




LD 




CDNPL 




3BI01930 




0A16 





0480 


0AE3 




STO 




AODRS 


STORE 5555 AAAA PATTERN 


3B101940 




0A18 





FOBD 






EOR 




FFFF 


COMPLEMENT 


3B101950 




0A19 





0400 


0A7E 




STO 




COMPL 


SET UP NEXT WORD 


3B101960 




OAIB 





C400 


0AE3 




LO 




AOORS 




3B101970 




OAID 





F400 


OAEC 




EOR 




UPRLM 




3B101980 




DA IF 





4C18 


0A26 


* 


BSC 




«*5,*- 


BR IF LAST AODRS 


3B101990 
3B102000 




0A21 





C400 


0AE3 




LO 




AOORS 




3B102010 




0A23 
OA25 






8400 
70EC 


0AE4 


* 


A 
MOX 




HOOOl 
RTN3+5 


INCRE ADDRESS BY ONE 


3BI02020 
3B102030 
3B102t)40 




0A26 





COBO 






LD 




H5555 




3BI02050 




1!>FEB68 














PROG ID 


03B1-0 


420403 


\ 
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0A27 0400 0A7E 



STO L COMPL 



0A29 





C400 


0A7E 


FUN31 


LO 


L 


COMPL 


0A2B 





D400 


0AE2 




STO 


L 


SLDBE 


0A2D 





4400 


OADA 




BSI 


L 


UP 


0A2F 





4400 


OACl 


A 


BSI 


L 


CHEX 


0A31 





4400 


0B74 




BSI 


L 


LOKFN 


0A33 





70F5 






MOX 




FUN31 


0A34 





7401 


OCOA 


^ 


NOX 


L 


FUNNO.l 


0A36 





C400 


0AE2 




LD 


L 


SLDBE 


0A3a 





0400 


0A7E 





STO 


L 


COMPL 


0A3A 





C400 


0A7E 


FUN32 


LO 


L 


COMPL 


0A3C 





D400 


0A7E 




STO 


L 


COMPL 


0A3E 





D400 


0AE2 




STO 


L 


SLDBE 


0A40 





4400 


OAED 




BSI 


L 


DOWN 


0A42 





4400 


OACl 


1^ 


BSI 


L 


CHEX 


0A44 





4400 


0B74 




BSI 


L 


LOKFN 


0A4& 





70F3 






MDX 




FUN32 



INCRE LOW TO HIGH CURE 
CK AND COMPLEMENT 

CK LOCK ON ERK 



0A47 4C00 0992 



DECRE HIGH TO LOW CORE 
CK AND COMPLEMENT 

CK LOCK ON ERROR 



BSC L CNTRL 

* 
********************************0*0**0t0m00,^i^000t,** 

* 

* TEST ROUHNE FOUR 

* 
*************************************************** 

* 



0A49 C400 0AE4 
0A4B 0030 
OA4C 1010 
OA40 4400 OAF 5 

0A4F 4400 0B74 
0A51 70F7 

0A52 7401 OCOA 

0A54 C028 
0A55 0026 
0A56 C400 09D6 
0A5S 0400 0A7E 
0A5A 4400 OAFS 

0A5C 4400 0874 
0A5E 70F5 

0A5F 4C00 0992 



RTN4 


LD 


L 


HOOOl 




STO 




ALTNT 




SLA 




16 




BSI 


L 


FLOAT 


* 










BSI 


L 


LOKFN 




HOX 




RTN4 


* 










NOX 


L 


FUNNO, 1 


* 








FUN42 


LD 




H0002 




STO 




ALTNT 




LD 


L 


FFFF 




STO 


L 


COMPL 





BSI 


L 


FLOAT 




BSI 


L 


LOKFN 




NOX 




FUN42 



CK EACH CORE LOCATION 
BIT BY BIT, ONE BIT ON 

CK FOR LOCK ON ERR 



CK EACH CORE LOCATION 
BIT BY BIT, ONE BIT OFF. 

CK FOR LOCK ON ERR 



BSC L CNTRL 

*************************************************** 

* 

* TEST ROUTINE FIVE 

*************************************************** 

* 



STORE WORST CASE PATTERN 
CK EACH CORE LOCATION 
CK LOCK ON ERROR 



0A61 





1010 




RTN5 


SLA 




16 


0A62 





0400 


0A7B 




STO 


L 


COUNT 


0A64 





4400 


0811 





BSI 


L 


WORST 


0A66 





4400 


OBIF 


FUN61 

* 


BSI 


L 


CHECK 


0A68 





4400 


0874 


BSI 


L 


LOKFN 


0A6A 





70FB 




* 


MOX 




FUN61 


OAbB 





7401 


OCOA 




MDX 


L 


FUNNO.l 



38102060 
3B102070 
3B1020B0 
38102090 
3B102100 
3B102110 
3B102120 
3B102130 
38102140 
3bl02150 
3B102160 
3B102170 
3B102180 
3B102190 
36102200 
38102210 
3B102220 
38102230 
38102240 
3bl02260 
3B102260 
3B1O2270 
3bl02280 
3B102290 
36102300 
3B102310 
3B102320 
3bl02330 
38102340 
38102350 
38102360 
3810237U 
381023S0 
38102390 
38102400 
38102410 
38102420 
38102430 
38102440 
38102450 
38102460 
38102470 
38102480 
38102490 
38102500 
38102510 
38102520 
38102530 
38102540 
3B102550 
38102560 
38102570 
38102580 
38102590 
38102600 
38102610 
38102620 
38102630 
38102640 
38102650 
38102660 
38102670 
38102680 
38102690 
38102700 
38102710 
38102720 
3B102730 



DATE 
EC NO. 
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0A6D coil 
0A6E 0400 0A7B 
0A70 4400 0631 

0A72 4400 0B74 
0A74 70FB 

0A75 4C00 0992 



0A77 C400 0AE5 
0A79 D004 
0A7A 70E6 



0A7B 
0A7C 
0A7D 
0A7e 
0A7F 
OAbO 



0000 
0000 
0002 
0000 
0004 
0000 



OABl 
0AB2 
GAB 3 
0AU4 
0AB5 



0AB9 
OABA 



0000 

D05F 

C067 

DOSE 

C05C 

0AH6 D480 0AE3 
0AU8 C05A 

F062 

4C98 0A81 



OAUC C0S6 
0A8D 8036 
OABE 70F5 



0A8F 
0A90 
OAVl 
0A93 
0A94 
0A9 5 



0000 
D052 

C480 0AE3 
0052 
F04D 
4420 0B8E 



DATE 
EC NO. 



0A97 C0E6 
0A98 0480 0AE3 
0A9A C048 
0A9B F04B 
0A9C 4C18 OAAl 

0A9E C044 
0A9F 8048 
OAAO 70EF 



1&FEB68 
420403 



FUN62 


LD 




H0004 




3B102740 






STO 


L 


COUNT 




3B102750 






BSl 


L 


SHAKE 


CK AND COrtPL 4 TIMES 


3B102760 




« 










3B 1027 70 






BSI 


L 


LOKFN 


CK LOCK ON ERROR 


3B102780 






NDX 




FUN62 




3B102790 




* 










3B102800 






BSC 


L 


CNTRL 




3B102810 




* 










3B102820 




m*******»**********m**********'******'*************** 


3B102B30 




* 










3B102840 




* 






TEST ROUTINE SIX 


3B102850 




* 










3B102860 




• *«*«»*«**«*l»**««««**»*««*******:**«««*««««»«««««««* 


3B 102870 




* 










3B102880 




RTN6 


LD 


L 


HFFFF 


SET UP COMPLEMENT 


3B102890 






STO 




COMPL 


WORST CASE PATTERN 


3B102900 






MOX 




RTN5 




3B102910 




* 










3B102920 




«««»«»i*«««»****»«««««»*«««4i»^«»««««»»«4«»««»«**«*«« 


3B102930 




« 










3B102940 




* 






SUBROUTINES FOR RTNS 1-6 


3B102950 




« 










3B102960 




#^^m*m****m*m»*m**m**m*****m**«****f******«**m****» 


3B102970 




* 










3B102980 




* 






PROGRAM 


CONSTANTS 


3B 102990 




* 










38103000 




COUNT 


DC 




♦-* 




3B103010 




ALTNT 


DC 




*-» 




3B103020 




H0002 


DC 




/0002 




3B 103030 




COMPL 


DC 




*-* 




3B 103040 




H0004 


DC 




/0004 


T 


3B103050 




PASS 


DC 




*-♦ 




3B103060 




• 










3B103070 




* 






FILL CORE UITH ONES 


3B103080 




*■ 










3B 103090 




FILL 


DC 
STO 




*-* 
SLDBE 




3B103100 
3B103110 






LD 




LMRLM 


GET STARTING ADDRESS 


3B103120 






STO 




AOORS 




3B103130 






LD 




SLDBE 


GET DATA WORD 


3B103140 






STO 


I 


ADDRS 


STO DATA WORD 


3B103150 






LD 




ADORS 




3B103I60 






EOR 




UPRLH 




3B103170 






BSC 


I 


FILL,+- 


BR IF LAST ADDRESS 


3B10318O 




* 


LO 




ADDRS 




3B103190 
3B103200 






A 




HOOOl 


INCRE ADDRESS BY ONE 


38103210 






HDX 




FILL+3 




3B103220 




* 










3B103230 




* 






CK AND 1 


:OMPLEMENT OOOO/FFFF PATTERN 


3B103240 




» 






. 




3B1032S0 




FLIP 


DC 




«-» 




3B103260 






STO 




ADDRS 


SAVE STARTING ADDRESS 


3B103270 






LD 


I 


ADORS 




3B103280 






STO 




WAS 




3B103290 






EOR 




SLDBE 


DATA WORD CORRECT 


3B103300 






BSI 


L 


ERROR, Z 


*N0« BRANCH TO ERROR RTN 


3B103310 




« 


LO 




COMPL 




3B103320 
3B103330 






STO 


I 


AOORS 


STORE NEW WORD 


3B103340 






LO 




ADORS 




3B103350 






EOR 




ENDPT 




3B103360 






BSC 


L 


•+3,+- 


BR IF LAST ADDRESS 


3B103370 




* 


LO 




AODRS 




3B103380 • 
3B103390 






A 




INCRE 


INCRE ADDRESS 


3B103400 






MOX 




FLlP+1 




3B103410 
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• 










3B103420 






OAAl 


C040 






LD 




SLDBE 




3bl03430 






0AA2 


OODB 






STO 




COMPL 




3B103440 






0AA3 


F041 






EOR 




HFFFF 




3B103450 






0AA4 


0030 






STO 




SLOBE 




3B103460 






0AA5 


4ceo 


OABF 


* 


BSC 


I 


FLIP 




3B103470 
3B103480 












* 






CK AND COMPLEMENT ADDRESS PATTERN 


3B103490 












* 










3B103500 






0AA7 


0000 




ADRCK 


DC 




*-» 




3B 1035 10 






0AA8 


D03A 






STO 




AODRS 




3B1O3520 






0AA9 


F0D4 






EOR 




COMPL 




3B103530 






OAAA 


0037 






STO 




SLDBE 




3bl03540 






OAAB 


C480 


0AE3 




LD 


I 


ADDRS 




3B103550 






OAAO 


0038 






STO 




WAS 




3B103560 






OAAE 


F033 






EOR 




SLDBE 


DATA WORD CORRECT 


3blO3570 






OAAF 


4420 


0B8E 


* 


BSI 


L 


ERROR, 2 


*N0, BRANCH 


3bl035a0 
3B103590 






OABl 


C030 






LD 




SLOBE 




3B103600 






0AB2 


F032 






EOR 




HFFFF 




3B103610 






0AB3 


0480 


0AE3 




STO 


1 


AODRS 


STORE COMPLEMENT 


3B1O3620 






0AB5 


C02D 






LD 




ADORS 




3blO3630 






0AB6 


F030 






EOR 




ENDPT 




3B103640 




' 


0AB7 
0AB9 


4Cie 

C029 


OABC 


m 


BSC 
LD 


L 


*+3,+- 
ADORS 


BR IF LAST ADDRESS 


3B103630 
3B103660 
3Blu3b70 






OABA 


8020 






A 




INCRE 


INCRE ADDRESS 


3B1036U0 






OABB 


70EC 




♦ 


NDX 




ADRCK+1 




3B103690 
30103700 






OABC 


COCl 






LD 




COMPL 




3bl037l0 






OABO 


F027 






EOR 




HFFFF 




.3B1O3720 






OABE 


OOBF 






STO 




COMPL 




3B103730 






OABF 


4C80 


0AA7 


* 


BSC 


I 


ADRCK 




3B103740 
3bl03750 












* 






CK AND COMPLEMENT 5555/AAAA PATTERN 


3el03760 












* 










3B103770 






OACl 


0000 




CHEX 


DC 




*-* 




3B103780 






0AC2 


0020 






STO 




AODRS 




3B103790 






0AC3 


C480 


0AE3 




LD 


I 


ADDRS 




3bl03800 






0AC5 


D020 






STO 




WAS 




3B1O3810 






0AC6 


FOIB 






EOR 




SLDBE 


DATA WORD CORRECT 


3B103820 






0AC7 


4420 


0B8E 


* 


BSI 


L 


ERROR, Z 


»N0, BRANCH 


36103830 
36103840 






0AC9 


C018 






LD 




SLDBE 




36103850 






OACA 


FOIA 






EOR 




HFFFF 




'3B103860 






OACB 


0480 


0AE3 




STO 


I 


ADDRS 


STORE COMPLEMENT, 


36103870 






OACD 


D014 






STO 




SLDBE 




36103880 






OACE 


C014 






LD 




ADORS 




3B1O3890 






OACF 


F017 






EOR 




ENDPT 




36103900 






OADO 


4Cie 


0A05 


« 


BSC 


L 


♦♦3,*- 


BR IF LAST ADDRESS 


3B103910 
36103920 






0AD2 


COlO 






LD 




ADDRS 




36103930 






0AD3 


8014 






A 




INCRE 


INCRE ADDRESS 


36103940 






0AD4 


70ED 




« 


MOX 




CHEX+1 




3B103950 
36103960 






0AU5 


C0A8 






LD 




COMPL 




36103970 






0AU6 


FOOE 






EOR 




HFFFF 




36103980 






0AD7 


00 A 6 






STO 




COMPL 




3B103990 






0A08 


4C80 


OACl 


» 
* 
« 


BSC 


I 


C«EX 

INCREMENT 


FROM LOWER TO UPPER CORE 


36104000 
36104010 
36104020 
36104030 






OADA 


0000 




UP 


DC 




*-« 




36104040 






OAOB 


C008 






LO 




HOOOl 




36104050 






OAJC 


0006 






STO 




INCRE 


SET UP ADDRS INCREMENT 


36104060 






OAUO 


CODE 






LD 




UPRLM 




3B104070 






CADE 


0008 






STO 




ENDPT 


SET LAST ADDRESS 


3B104080 






OAUF 


COOB 






LD 




LHRLM 


SET FIRST ADDRESS 


36104090 




DATE 


lbFEB68 














PROG ID 


03B1-0 


EC NO. 


420403 














PAGE 


3A 
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OAEO 4CaO OADA 



DAE 2 0000 
0AE3 0000 
0AE4 0001 
0AE5 FFFF 
DAE 6 0000 
0Afc7 0000 
0AE8 0000 
0AE9 0000 
OAEA 8000 
OAEB FFF6 
OAEC 0900 



OAtO 0000 
OAtE C0F6 
OAEF D0F8 
OAFO COFA 
OAFl D0F5 
0AF2 C0F9 
0AF3 4C80 OAEO 



OAFS 0000 
0AF6 C0F4 
0AF7 DOEB 
0AF8 COFl 
0AF9 F084 
OAFA D0E7 
OAFB DA80 0AE3 
OAFD C480 0AE3 
OAFF D0E6 
OBOO FOEl 
OBUl 4420 0B8E 

0B03 CODE 
OB04 F400 0A7E 
0B06 4C04 OBOA 

0B08 1801 
0B09 70EF 

OBOA C0D8 
OBOB FOEO 
OBUC 4C98 0AF5 

UBOE C0D4 
OBOF 8004 
OB 10 70E6 



BSC I UP 



* 

SLOBE DC 
ADDRS DC 
HOOOl DC 
HFFFF DC 
WAS DC 
ENDPT DC 
INCRE DC 
TEMP DC 
H8000 DC 
LWRLM DC 
UPRLM DC 

* 



DOWN 



DC 

LD 

STO 

LO 

STO 

LO 

BSC 



* 



FLOAT DC 
LD 



STO 
LO 
EOR 
STO 
STO I 
LD I 
STO 
EOR 
BSI L 



OBll 
0B12 
0B13 
0B14 
0B16 
0B18 
OB 19 
OBI A 



0000 
C0D8 
OOCF 

4400 0B4E 
D480 0AE3 
COCA 
F002 
4C98 OBll 



DATE 
EC NO. 



OBIC C0C6 
OB 10 80C6 



13FEB68 
420403 



LO 

EOR 

BSC 

« 

SRA 
MDX 

« 

LD 

EOR 

BSC 

LD 

A 

MDX 

WORST DC 
LO 
STO 
BSI 
STO 
LD 
EOR 
BSC 

• 

LD 

A 



PROGRAM CONSTANTS 



•-• 



/OOOl 
/FFFF 

«■-* 

*-» 



/8000 
/FFF6 
/0900 

DECREMENT FROM UPPER TO LOWER CORE 



*-* 

HFFFF 

INCRE 

LWRLM 

ENDPT 

UPRLM 

DOMN 



SET UP ADDRESS INCRE 



SET UP LAST ADDRESS 
SET UP FIRST ADDRESS 



CHECK BIT BY BIT PATTERN 



♦-♦ 

LWRLM 

ADORS 

H8000 

COMPL 

SLOBE 

ADDRS 

AOORS . 

HAS 

SLOBE 

ERROR.Z 

SLOBE 
COMPL 
**2tE 



FLOAT+4 

ADDRS 
UPRLM 
FLOAT, +- 

AOORS 
HOOOl 
FLOAT+2 



SAVE ADDRESS 



STORE DATA WORD 



DAT* CORRECT 
»N0» BRANCH 



LAST SHIFT 
*N0» BRANCH 

SHIFT DATA 



BR IF LAST ADDRESS 
INCRE ADDRESS 



STORE WORST CASE PATTERN 



*-• 

LWRLM 

ADDRS 

FIND 

ADDRS 

AOORS 

UPRLM 

WORST, 

ADDRS 
HOOOl 



SAVE ADDRESS 

FIND IF 0000 OR FFFF 

STORE DATA 



BR IF LAST ADDRESS 



INCRE ADDRESS 



3B104100 
3B104riO 
3B104I20 
3B 1041 30 
3B104140 
3B104150 
3B104160 
3B104170 
3B104180 
3B104190 
3B104200 
3B104210 
3B104220 
3B104230 
3B104240 
3B 104250 
3B104260 
3B104270 
3B104280 
3B104290 
3B104300 
3B104310 
3B104320 
3B 104330 
3B104344 
3B104350 
3B1043*0 
3B104370 
3B104380 
3BI04390 
3Bi04400 
lfrl04^10 
38104420 
3BIQ4430 
3B1 04440 
3B104450 
3B104460 
3B104470 
3BI04480 
3B 104490 
3B104500 
3B104510 
3B104S20 
3B104530 
3B104540 
3BI04SS0 
3B104S60 
3B104570 
3B104580 
3B104S90 
3B104600 
3B104610 
3E 104620 
3B 104630 
3B 104640 
3B104650 
3B104660 
3B 1046 70 
3B104680 
3B104690 
3B104700 
3B104710 
3B104720 
3B104730 
3B104740 
3B 104750 
3B104760 
3B104770 



PROG ID 
PAGE 



03B1-0 

4 



DATE 
EC NO. 



OBIE 





70F4 




« 


MDX 




U0RST4-2 




3B104780 
3B104790 










* 






CHECK WORST CASE PATTERN 


3B104800 










* 










3B104810 


OBIF 





0000 




CHECK 


DC 




«-• 




38104820 


0B20 





COCA 






LD 




LWRLM 




3B104B30 


0B21 





OOCl 






STO 




ADDRS 


SAVE ADDRESS 


36104840 


OB22 





C480 


0AE3 




LO 


I 


ADORS 




3B104850 


0B24 





DOCl 






STO 




WAS 




3B104860 


0825 





4C18 


0B2A 


* 


BSC 


L 


*+3,+- 


BR IF DATA ZERO 


3B104870 
3B104880 


0527 





FOBD 






EOR 




HFFFF 


COMPLEMENT DATA 


3B104890 


0B28 





4420 


0B69 


* ' ' 


BSI 


L 


ERR, 2 


BR TO ERROR RTN IF NOT 


3B104900 
3B104910 


0B2A 





COBB 






LO 




AOORS 




3B104920 


0B2B 





FOCO 






EOR 




UPRLM 




3B104930 


0B2C 





4C98 


OBIF 


* 


BSC 


I 


CHECK, +- 


BR IF LAST ADDRESS 


3B104940 
3B104950 


0B2E 





C0B4 






LO 




ADDRS 




3B104960 


0B2F 





80B4 






A 




HOOOl 


INCRE ADDRESS 


3B104970 


0B30 





70F0 




• 


MDX 




CHECK+2 




3B104980 
3B104990 










* 






CK AND COMPLEMENT 4 TIMES 


3B1O5O00 










•• 










3B105010 


0B31 





0000 




SHAKE 


DC 




*-» 




3B105020 


0B32 





COBB 






LO 




LWRLM 




38105030 


0B33 





OOAF 






STO 




ADORS 


SAVE ADDRESS 


3B105040 


0B34 





C480 


0AE3 




LO 


I 


AOORS 




3B105050 


0B36 





OOAF 






STO 




WAS 




3bl05060 


0B37 





4C1B 


0B4C 


» 


BSC 


L 


INVRT, +- 


BR DATA WORD ZERO 


38 1050 70 
3B105080 


0B39 





FOAB 






EOR 




HFFFF 


COMPL DATA 


38105090 


0B3A 





4420 


0B69 


* ■ 


BSI 


L 


ERR,Z 


BR IF NOT ZERO 


3B105100 
3B105110 


0B3C 





0480 


0AE3 


STORE 


STO 


I 


AOORS 


STORE NEW DATA 


3B105120 


0B3E 





74FF 


0A7B 




MDX 


L 


COUNT, -1 




3bl05130 


0B40 





70F3 




« 


MDX 




SHAKE'»3 




3B105140 
3B105150 


0B41 





COAl 






LO 




ADORS 




3B10S160 


0B42 





F0A9 






EOR 




UPRLM 




3B105170 


0B43 





4C98 


0831 


• 


BSC 


I 


SHAKE, +- 


BR IF LAST ADDRESS 


3B105ie0 
3B105190 


0B45 





C400 


0A7F 




LO 


L 


H0004 




3B105200 


0B47 





0400 


0A7B 




STO 


L 


COUNT 




38105210 


0B49 





C099 






LO 




ADDRS 




3B105220 


0B4A 





8099 






A 




HOOOl 


INCRE ADDRESS 


3B105230 


0B4B 





TOE 7 




* - 


MDX 




SHAKE-»^2 




38105240 
3B1O5250 


0B4C 





F098 




INVRT 


EOR 




HFFFF 


COMPLEMENT DATA 


3B105260 


0B4D 





70EE 




* 
* 
* 


MOX 




STORE 
DETERMINE 


IF DATA S/B 0000 OR FFFF 


3B105270 
3B1O5280 
3B105290 
3B105300 


0B4E 





0000 




FIND 


DC 




*-* 




3B105310 


0B4F 





C093 






LD 




ADDRS 




3B1U5320 


OB50 





1806 






SRA 




6 




3B105330 


0B51 





0097 






STO 




TEMP 




3B105340 


0852 





1802 






SRA 




2 


ADORS BITS 7 AND 9 


3B105350 


OB53 





F095 






EOR 




TEMP 


BOTH OR BOTH 1 


38105360 


0B54 





4C04 


OB58 


m 


BSC 


L 


»+2,E 


»N0, BRANCH 


38105370 
38105380 


0B66 





1010 






SLA 




16 




3B105390 


0B57 





7001 




* 


MDX 




♦+1 




3B105400 
3B105410 


0Bb8 





C08C 






LD 




HFFFF 


COMPLEMENT DATA FOR 


3B105420 


0859 





F400 


0A7E 




EOR 


L 


COMPL 


COMPLEMENT WORST CASE 


3B105430 


0B5B 





D086 






STO 




SLDBE 




3B105440 


CB5C 





C400 


0A7B 




LD 


L 


COUNT 


DATA COMPL ODD NO. TIMES 


38105450 


15FEB68 














PROG ID 0381-0 


U?fH 


^0- 


i 
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085E 4C04 0B63 

0B60 coei 

0B61 <»C80 0B4E 

0B63 C400 0AE2 
0B65 F400 0AE5 
0Bt>7 4C80 0B4E 



0B69 
0U6A 
OBbC 
0B6E 
0B70 
OB72 



0B7A 
()B75 
0677 
UB79 
0B7B 
0B7C 
0B7E 
OBoO 



0000 

4400 0B4E 
D400 0AE2 
4400 0B8E 
F400 0AE5 
4C80 0B69 



0000 

7401 0A80 
C400 0A80 
4C84 0B74 
1010 

0400 0A80 
7400 0C09 
7004 



OBBl 7401 0B74 
0Bo3 4CB0 0B74 

0B<]5 086C 

0BH6 O C400 OCOB 

OBUB lOOC 

0Bb9 4CA8'0B74 

OBUB 1010 
OBBC D07C 
OBUO O 70F3 



41 
* 
* 

ERR 



BSC 

LD 
BSC 

LD 

EOR 

BSC 



DC 

BSI 

STO 

BSI 

EOR 

BSC 



LOKFN DC 
MDX 
LD 
BSC 
SLA 
STO 
MDX 
MDX 

MDX 
BSC 

XIO 
LD 
SLA 
BSC 

SLA 
STO 
MDX 



•+3.E 

SLDBE 
FIND 

SLOBE 
HFFFF 
FIND 



*YES. BRANCH 



COMPLEMENT DATA 



ERROR IN WORST CASE PATTERN 



*~* 

FIND 

SLDBE 

ERROR 

HFFFF 

ERR 



FIND GOOD DATA 
GO TO ERROR RTN 



CK PASS COUNT AND LOCK ON ERR 



*-• 

PASS,! 

PASS 

LOKFN. E 

16 

PASS 

ERRSW 

•♦4 

LOKFNtl 
LOKFN 

ROSHS 

SHS 

12 

LOKFN.Z-i- 

16 

ERRSH 
L0KFN-M3 



BR IF COUNT ODD 



ERROR SM ON 
*VES BRANCH 

ADD ONE TO RETURN 



READ SM ITCHES 

LOCK ON ERR FUNC SELECTED 
*yES, BRANCH 



CLEAR ERROR SH 



* 

* ERROR ROUTINE 

* 



SET UP RESTART 
READ SHS 



OBOE 





0000 




ERROR DC 




•-* 


OBbF 





ccoo 


0000 


LDO 


L 





0B91 





DCOO 


ocoo 


STO 


L 


SAVEl 


0893 





C85C 




LOO 




LINK 


0894 





DCOO 


0000 


STO 


L 





0896 





085B 




XIO 




RDSWS 


0897 





C073 




LO 




SHS 


0898 





E06E 




AND 




HOOAE 


0B99 





F06E 




EOR 




H0006 


0B9A 





4C20 


0B9E 


BSC 

* 

WAIT 


L 


**Z,l 


0B9C 





3007 






7 


0B9D 





70F5 




MDX 




ERR0R-»5 


0B9E 





C400 


OCOA 


LD 


L 


FUNNO 


08A0 





8400 


0AE4 


A 


L 


HOOOl 


08A2 





8069 




A 




NOTBL 


0BA3 





0001 




STO 




•♦I 


08A4 





C400 


0000 


LD 


L 


m-* 


0BA6 





0400 


0C86 


STO 


L 


MSG07+3 


0BA8 





4400 


0C23 


BSI 


L 


PRINT 



ILLEGAL SWITCH COMBINATION 
•NO, BRANCH 

ERR-ILLE6AL SWS 



PUT FUNC. NO. IN MSG 
PRINT ERROR MSG 



3B105460 

3B10S470 

3B105480 

3B 10 5490 

3B105500 

3B10S510 

3B105520 

3B105530 

3B105540 

3B105550 

3B105S60 

3B105570 

3B105580 

3B 105590 

3B105600 

3B105610 

3B105620 

3B105630 

3B105640 

3B105650 

3B105660 

3B105670 

3B105680 

3B 105690 

3B105700 

3B105710 

3B105720 

3B105730 

3B10S740 

3B105750 

3B105760 

3B105770 

3B1057S0 

3B 105790 

3B105800 

3B105810 

3B105820 

3B105830 

36105840 

3B105850 

3B105860 

3B105870 

3B105880 

3B 105890 

3B105900 

3B105910 

3B105920 

3B105930 

3B105940 

3B105950 

3B105960 

3B105970 

3B105980 

3B105990 

3B106000 

3B106010 

3B106020 

3BI06030 

3BI06040 

3B106050 

3B106060 

3B106070 

3B> 06080 

3B106090 

3B106100 

3B 1061 10 

3B106120 

3B106130 



OBAA 8C7A 




DC 




MSG05+/8000 


OBAB 8C7E 




DC 




MSG06+/8000 


OBAC 0C83 


* 


DC 




MSG07 




OBAD C050 


LO 




SHS 




OBAE lOOE 




SLA 




14 




OBAF 4C28 0BC2 


^ 


BSC 




NWAIT,Z+ 


BY IF BYPASS WAIT 


OBBl C400 0AE2 




LD 




SLOBE 


GET GOOD DATA 


0BB3 1890 




SRT 




16 


PUT IN 


0884 C400 0AE6 




LD 




WAS 


BAD DATA IN A 


0BB6 3004 





WAIT 




4 


ERROR WAIT 


0BB7 C400 OCOA 




LO 




FUNNO 




0BB9 8400 0AE4 




A 




HOOOl 




OBBB 1888 




SRT 




8 


PUT FUNCTION NO. 


OBBC C400 0905 




LD 




RID 


AND RTN NO. 


OBBE 1888 




SRT 




8 


IN Q REG 


OBBF C400 0AE3 




LD 




ADORS 


ADDRS IN ACC 


OBCl 3005 


^ 


WAIT 




5 


ERROR WAIT 


0BC2 082F 


NHAIT 


XIO 




RDSWS 


READ SWS 


0BC3 C047 




LD 




SWS 




0BC4 0044 




STO 




ERRSW 


SET ERROR SWITCH 


0BC5 1008 




SLA 




8 




0BC6 4C28 0BD2 


^ 


BSC 


L 


LOOPA, Zf 


BR TO LOOP ADDRESS 


0BC8 CCOO OCOO 




LDO 




SAVEl 




OBCA DCOO 0000 




STD 









OBCC C400*OAE2 




LD 




SLOBE 




OBCE 0480 0AE3 




STO 




AOORS 




OBOO 4C80 0B8E 




BSC 




ERROR 




0B02 C400 0A7C 


LOOPA 


LD 




ALTNT 




0B04 8031 


A 




HTOOO 


FINO LAST GOOD DATA 


0BD5 0001 




STO 




»+l 


HORO STORED 


0BD6 C400 0AE2 




LD 


L 


SLDBE 




0BD8 7000 


^ 


MDX 




• 




0BD9 7011 




MDX 




ALTOO 




OBOA 7013 


* 


MDX 




ALTOl 




OBOB 1001 


ALT02 


SLA 




1 




OBDC 8400 0AE4 




A 




HOOOl 




OBOE D480 0AE3 




STO 




AOORS 


STO LAST GOOD DATA 


OBEO C400 0AE2 




LD 




SLDBE 




0BE2 D480 0AE3 




STO 




AODRS 


STO LAST BAD DATA 


0BE4 C480 0AE3 




LD 




ADDRS 




0BE6 F400 0AE2 




EOR 




SLDBE 


DATA GOOD NOM 


0BE8 4C20 0B8F 





BSC 




ERRORfl.Z 


*N0, BRANCH 


OBEA 7007 




MDX 




NWAIT 




OBEB F400 0AE5 


ALTOO 


EOR 


L 


HFFFF 




OBED 70F0 




MDX 




ALT02+3 




OBEE 1001 


ALTOl 


SLA 




1 


• 


OBEF 70EE 




MDX 




ALT02+3 












CONSTANTS 


lOCC TABLE . 


OBFO 0000 


BSS 


E 






OBFO 4C00 0961 


LINK 


BSC 


L 


CRSIZ 




0BF2 OCOB 


ROSWS 


DC 




SWS 




0BF3 3A00 




DC 




/3A00 




0BF4 0C5D 


VECTR 


DC 




INT 




0BF5 0C61 




DC 




STOP 




0BF6 0000 


SENSE 


DC 










3B106140 

3B106150 

3bl06160 

3B106170 

3B106180 

3B106190 

3B106200 

3B106210 

3U106220 

3B106230 

3B106240 

3B106250 

3bl06260 

3B106270 

3B1062e0 

3bl06290 

3B106 300 

3B10b310 

3bl06320 

3B106330 

3B106 340 

3B106350 

3B106 360 

3B106370 

3bl063H0 

3bl06390 

3bl06400 

3B I 064 10 

3bl06420 

3bl06430 

3B106440 

3B1064S0 

3bl06460 

3B 1064 70 

3bl06480 

3B106490 

3bl06 500 

3B106S10 

3ttlU6520 

38106530 

3B106540 

38106550 

3bl06 560 

3B106570 

3bl06 5f0 

38106590 

38106600 

3B106610 

3bl06620 

3B106630 

38106640 

3ttl06650 

38106660 

381066 70 

3B106680 

38106690 

36106700 

38106710 

3B106720 

3B106730 

3B106740 

38106750 

3B106760 

38106770 

3bl06780 

3B106790 

3B106800 

3B106810 



DATE 
EC NO. 



15FEB68 
420403 



PROG 10 
PAGE 



03B1-0 
5 



DATE 
EC NO. 



15FEB68 
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PAGE 
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08F7 





OFOl 




DC 


/OFOl 




0BF8 





0C04 


RETRN 


DC 


CR 




0BF9 





0900 




DC 


/0900 




06FA 





OBFE 


PRNTl 


DC 


CHARl 




OBFB 





0900 




DC 


/0900 




OBFC 





OBFF 


PRNT2 


DC 


CHAR2 




OBFD 





0900 




DC 


/0900 




OBFE 





0000 


CHARl 


DC 


*-* 




OBFF 





0000 


CHAR2 


DC 


*-* 




OCOO 





0000 


SAVEl 


DC 


*-« 




OCOl 





0000 




DC 


*-• 




0C02 





0000 


SAVE2 


DC 


*-• 




0C03 





0000 




DC 







OCO* 





8500 


CR 


DC 


/6500 




0C05 





0000 


MSGAD 


DC 


*-• 




0C06 





7000 


H7000 


DC 


/7000 




0C07 





OOAE 


HOOAE 


DC 


/OOAE 




ocoe 





0006 


H0006 


DC 


/0006 




DC 09 





0000 


ERRSH 


DC 







OCOA 





0000 


FUNNO 


DC 


•-• 




OCOB 





0000 


SWS 


DC 


■*-• 




ococ 





OCOC 


NOTBL 


DC 


NOTBL 




OCOD 





C4FC 




DC 


/C4FC 


01 


OCOE 





C4DB 




DC 


/C4D6 


02 


OCOF 





CfOC 




DC 


/C4DC 


03 


OCIO 





CFO 




DC 


/C4F0 


0* 


OCll 





C4F4 




DC 


/C4F4 


05 


0C12 





C4D0 




DC 


/C4D0 


06 


0C13 





C4D4 




DC 


/C4D4 


07 



0C14 


4400 


OC23 


0C16 


8C69 




0C17 


0C6C 




0C18 


C8D7 




0C19 


OCOO 


0000 


OCIB 


08D6 




OCIC 


COEE 




OCID 


1006 




OCIE 


4C28 


098A 


0C20 


3002 





* PROGRAM END ROUTINE 

* 
END 



BSI t 


PRINT 




PRINT END NS( 


DC 


NS«02-»/8000 


DC 


NSG03 






LDD 


LINK 






STD L 









XIO 


RDSWS 




READ SMS 


LO 


SHS 






SLA 


11 




LOOP PROGRAM 


BSC L 


STARTt 


2* 


*yESt BRANCH 


«*AIT 


2 




END PROGRAM 



0C21 4C00 0961 



BSC L -CRS12 

* 

* PRINT ROUTINE 



DATE 
EC NO. 



0C23 0000 
0C24 0800 
0C25 COES 
0C26 lOOD 
OC27 4C10 0C30 

0C29 7401 OC23 
0C2B C480 0C23 
0C2D 4C10 0C55 

0C2F 70F9 



15FEB6S 
420403 



PRINT 


DC 




*-* 






XIO 




RDSHS 


READ SMS 




LO 




SMS 






SLA 




13 


BYPASS PRINT ON 


^ 


BSC 


L 


■PRNIT,- 


•NOt BRANCH 


GTOUT 


MOX 


L 


PRINT,! 






LO 


1 


PRINT 




« 


BSC 
MOX 


L 


OUT,- 
•GTOOT 




« 











36106820 
3B 106830 
3B106B40 
36106850 
36106860 
3B106870 
3B106880 
3B106890 
3B106900 
3B 106910 
36106920 
36106930 
3B106940 
3B106950 
36106960 
3B 106970 
36106980 
3B 106990 
3B107000 
3B107010 
36107020 
3B107030 
3B107040 
3B 107050 
381070*0 
3B 107070 
3B107080 
3B 107090 
3BI07100 
3B 1071 10 
3B107120 
3B107130 
3B107140 
3B107150 
3B107160 
3B107170 
3B107180 
38107190 
3B107200 
3B 1072 10 
3B107220 
3B 107230 
3B107240 
3B107250 
3B107260 
3B 107270 
3B107280 
36107290 
3B107300 
3B107310 
3B107320 
3B107330 
3B107340 
36107350 
3B107360 
3B107370 
3B107380 
3B107390 
3B107400 
3B107410 
3B107420 
36107430 
36107440 
36107450 
36107460 
36107470 
36107480 
36107490 



0C30 
0C32 
0C34 
0C35 
0C37 
0C38 



0C39 
0C3B 
0C3C 
0C3E 
0C40 



0C42 
0C44 
0C45 
0C46 
0C47 
0048 



CCOO OOOC 
OCOO 0C02 

cesF 

OCOO OOOC 

08C0 

3006 

C480 0C23 
D0C9 

C480 0C05 
F400 0AE5 
4018 0C4E 

F400 0AE5 

D0B9 

1008 

0088 

0882 

3006 



PRNIT 



GTADR 



0049 08B2 
0C4A 3006 

0048 7401 0C05 
0040 70EE 

0C4E 0480 0023 

0050 4010 0055 

0052 7401 0023 
0054 70E4 



* 
MSGEN 



0055 
0057 
0059 
0058 
0050 
00 5E 
0C5F 



7401 0023 
OCOO 0002 
OCOO OOOC 
4080 0023 
0000 
0897 
4CC0 0050 



0C61 0000 
0C62 3008 
0063 4000 0061 



* 
OUT 



INT 



STOP 



LDD 
STD 
LDD 
STD 
XIO 
tiAIT 

LO 

STO 

LD 

EOR 

BSC 

EOR 
STO 
SLA 
STO 
XIO 
UAIT 

XIO 
WAIT 

MOX 
MOX 

LO 
BSC 

MOX 
MDX 



MOX L 

LOO L 

STO L 

BSC I 
00 
XIO 

BOSC I 



00 

WAIT 
BOSC I 



PROG 
PAGE 



ID 



03B1-0 
6 



0065 


9A9E 


0066 


3E62 


0067 


9E21 


0068 


FFFF 


0C69 


3676 


0061k 


3221 


006B 


FFFF 


0060 


5E52 


0060 


9221 


O06E 


1E52 


00 6F 


6236 


0070 


219E 


0071 


369A 


0072 


9E2I 


0073 


FFFF 


0C74 


1E52 


0075 


6236 


0C76 


219A 


0077 


22A2 


0C78 


3621 


0079 


FFFF 


DATE 15FEB6e 


EC NO. 420403 



MS601 



* 
MSG02 



* 
MSG03 



« 
MS604 



DC 
DC 
00 
00 

00 
00 
DC 

DC 
00 
00 
00 
00 
DC 
DC 
DC 

00 
00 
OC 
DC 
DC 
00 



12 

SAVE 2 

VECTR 

12 

RETRN 

6 

PRINT 
MSGAD 
HSGAD 
HFFFF 
MSGEN, ♦- 

HFFFF 

CHARl 

8 

CHAR2 

PRNTl 

6 

PRNT2 
6 

MSGAD, 1 
6TADR-»3 

PRINT 
OUT,- 

PRINT,1 
GTADR 

PRINT, 1 
SAVE2 
12 
PRINT 

*-* 

SENSE 

INT 

*-* 

8 

STOP 

/9A9E 
/3E62 
/9E21 
/FFFF 

/3676 
/3221 
/FFFF 

/5E52 
/9221 
/1E52 
/6236 
/219E 
/369A 
/9E21 
/FFFF 

/1E52 
/6236 
/219A 
/22A2 
/3621 
/FFFF 





3B107 500 






3B107510 






3B107520 




SET INT VECTOR 


36107530 




CARRIER RETURN 


36107540 
3B107550 
36107560 




GET MSG AODRS 


3B10757O 
36107580 




GET CHAR TO PRINT 


36107590 
36107600 




BR IF TERMINATOR 


36107610 
36107620 
36107630 




STO FIRST CHAR 


36107640 




~ 


36107650 




STO SECOND CHAR 


36107660 




PRINT FIRST CHAR 


36107670 






36107680 
36107690 




PRINT SECOND CHAR 


36107700 
36107710 
36107720 




INCRE MSG TABLE ADORS 


36107730 
36107740 
36107750 
36107760 




BR IF LAST MSG SECTION 


36107770 
36107780 






36107790 
36107800 
36107810 
36107820 
3B107830 
36107840 
36107850 
36107860 




SENSE OSH AND RESET 


36107870 
36107880 
36107890 
36107900 




PROG STOP MAIT 


3B107910 
36107920 
3B107930 




ST 


36107940 




AR 


36107950 




T 


36107960 
36107970 
36107980 




EN 


36107990 







3B106000 
3B108010 
3B10B020 




LO 


3B108030 




M 


36108040 




00 


3B108050 




RE 


36108060 




T 


3B108070 




ES 


3B108080 




T 


36108090 
36108100 
3B106110 




CO 


36108120 




RE 


36108130 




S 


36108140 




IZ 


36 1081 50 




E 


36108160 
3*108170 
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OCT A 093t 


MS605 OC 


/0936 


SR 


0C7B 6262 




OC 


/6262 


RR 


0C7C 2121 




DC 


/2121 




0C70 FFFF 


* 
HSC 


DC 


/FFFF 




0C7E 629E 


;06 OC 


/629E 


RT 


0C7F 7621 




OC 


/7621 


N 


OCBO 0000 




DC 


•-* 


XX 


0C81 2121 




DC 


/2121 




0C82 FFFF 


^ 


DC 


/FFFF 




0CB3 2112 


MS607 DC 


/21X2 


F 


0CU4 B276 




OC 


/B276 


UN 


0C85 1E21 




DC 


/1E21 


C 


0CU6 0000 




DC 


*-* 


YY 


0Cb7 FFFF 




DC 


/FFFF 




0CB8 0961 




END 


CRSIZ 




NU STATEMENTS 


FLAGGED 


IN THE 


ABOVE ASSEMBLY 





3B10ei80 
3B108190 
3B108200 
3B108210 
3B108220 
3B108230 
3B108240 
3B108250 
3B108260 
3B 108270 
3B108280 
3B 108290 
3B108300 
3B108310 
3B108320 
3B108330 
3B108340 
3B 108350 



C « 

NAME 

ADDRS 



AORCK 


0AA7 


ADVNC 


09A2 


ALTNT 


0A7C 


AL^OO 


OBEB 


ALTOl 


OBEE 


ALT02 


OBDB 


CHARl 


OBFE 


CHAR2 


OBFF 


CHECK 


OBIF 


CHEX 


OACl 


CNTRL 


0992 


COMPL 


0A7E 


COUNT 


0A7B 


CR 


0C04 


CRSIZ 


0961 


DOrtN 


OAED 


END 


0C14 


ENDPT 


0AE7 


ERR 


0B69 


ERROR 


0B8E 


ERRSH 


0C09 


FFFF 


0906 


FILL 


0A81 


FIND 


0B*E 


FLIP 


0A8F 


FLOAT 


OAFS 


FNDSZ 


0985 


FUNNO 


OCOA 


FUN 11 


090C 


FUN12 


09E5 


FUN21 


09FC 


FUN22 


0A05 


FUN 31 


0A29 


FUN32 


0A3A 


FUN42 


0A54 


FUN61 


0A66 


FUN 62 


0A60 


GTAOR 


0C39 


GTOUT 


0C29 


HFFFF 


0AE5 


HOGAE 


0C07 


HOOOA 


09D4 


HOOOl 


0AE4 


H0002 


0A7D 


HOOOA 


0A7F 


H0006 


0C08 


HIOOO 


09D3 


H5555 


0907 


H7000 


0C06 


H8000 


OAEA 


INCRE 


0AE8 


INT 


0C5D 


INVRT 


OBAC 


LINK 


OBFO 


LOKFN 


0B7A 


LOUPA 


0BD2 


LPRTN 


09A8 


LRTN 


0908 


LMRLM 


OAEB 




09FE,OA07,OA6B,OABF 

09A9 

0993.0A4B,OA55«OB02 

0B09 

06DA 

OBED.OBEF 

0BFA,0C44 

0BFCt0C46 

0A66t0B2C»0B30 

0A2F,0A42,0AD4,0AD8 

09EC,OAOCfOA47,0A5F,OA75 

0997,0A0Et0A14,0A19,0A27,0A29«0A38,0A3A,0A3C»0A5B,0A79,0A97,0AA2 

0AA9,OABC«OABE,OA05fOAD7,OAF9,OB04,0B59 

0A62 , 0A6E f 063E, 0B<r7 , OB 5C 

DBFS 

097 l,0984t OBFO, OCZltOCBS 

09E5«0A05,0A40,0*F3 

09A6 

OA9B,OAB6«OACF,OADE»OAF1 

0B28,0B3A,0B72 

OA95,OAAF,0AC7, 0801, 0B6E,0B9D,0BD0, OBEB 

0990,0B7E,0B8C,0BC4 

09D9,0A1B,0A56 

090A,OABA,OA8E 

0B14,OB61,OB67,OB6A 

090E,09E7,OAAO,OAA5 

0A40,0A5A,06D9,0B0C,0BlO 

096C,0979 

0999, O9E3,OA03,OA34,OA52,OA6B,0B9E, 0887 

09E2 

09EB 

0A02 

0A08 

0A33 

0A46 

0A5E 

0A6A 

0A74 

0C4O,OC54 

0C2F 

0A77, 0AA3,0AB2,0ABD,0AC A, OAD6,OAEE,0B2 7, 0B39,0B4C, 0858,0865, 0870 

0BEB,0C3E,0C42 

0B98 

0986,O9F9,OA23,0A49,OA8O,0A0B,OB0F,0BlD,0B2F,0B4A,0BA0,OBB9,OBOC 

0A54 

0/60,0845 

0899 

0961 

0A0D,0A26 

0B04 

0AF8 

OA9F,OA8A,OA03,0A0C,OAEF 

0BF4,0C5F 

0B37 

0966, 0973, 097B,0B93,0C 18 

09 EC, 09E9,OA00,OAO9,0A31,OA44,OA4F,0A5C,OA68,0A 72,0679, 0681,0883 

0B89,0B8D 

0BC6 

09C1,09C4,09CA 

09A5,09C3 

09ED, 0A8 3, 0ADF,0AF0,0AF6, 08 12, 0620,0632 
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MSbAD 

MSOEN 

MSGOl 

MSU02 

MSG03 

HSG04 

MSbOS 

MSb06 

MSG07 

NOTBL 

NWAIT 

OUT 

PASS 

PRINT 

PRNIT 

PRNTl 

PRNT2 

RDSHS 

RETRN 

RIO 

RTNl 

RTN2 

RTN3 

RTN*. 

RTN5 

RTN6 

RTTBL 

SAVEl 

SAVE2 

SENSE 

SHAKE 

SUE 

SLDBE 

SLKTN 

START 

STUP 

STURE 

STRTN 

SMS 

TtNP 

UP 

UPKLM 

VECTR 

UAS 

WORST 



0C05 0C3Bt0C3C»0C4B 

0C4E 0C40 

0C65 098Ct09BC 

0C69 DC 16 

0C6C 0980*0017 

OCT't 0982 

0C7A 0981, OBA* 

0C7E 09B3,09B0.0BAB 

0C83 0BA6,0BAC 

OCOC 09AE,0BA2t0C0C 

0BC2 OBAF.OBEA 

0C55 0C2D,0C50 

OAeO 0995,0B75,0B77,0B7C 

0C23 097F,098A,09BA,0BA8,0Cl4,0C29,0C2B,0C39,0C4E,0C52»OC55,OC5B 

0C30 0C27 

OBFA 0C47 

OBFC 0C49 

0BF2 099Bt0B85,0B96,0BC2*0C1B»OC24 

OBFt 0C37 

0905 098F,09A2,09A4,09Ae,09AD,09C9,OBBC 

0909 09CC 

O9E0 09CD,09FB 

OAOD 09CE,0A25 ' 

0A49 09CF,0AS1 

0A61 0900tOA7A 

0A77 09DI 

09CB 09AB,09CB 

OCOC 0B91«0BC8 

0C02 0C32,0C57 

0BF6 0C5E 

0B31 OA7Ot0BAO,0B43,0B4B 

0902 0962f 0968 t096E,0970« 0975*0985, 0988 

0AE2 0A2B,0A36,0A3E,0A82,0A85,0A94,0AA1,0AA4,0AAA,0AAE,0ABI,0AC6,0AC9 
OACD,OAFA,OBOO,0B03,OB5B,OBb0,OB63,0B6C,0BBl*OBCC,OBD6,OBEO,OBE6 

09CO 09A0 

098A OCIE 

0C61 0BF5*0C63 

0B3C 0B40 

09BE 09AC,09B8 

OCOB 0990, 0985, O9C6,0B86,0B97,OBAD.0BC3,OBF2,0ClCt0C25 

0AE9 OB51,OB53 

OADA 09DC,09FC,OA10,OA20,OAEO 

OAEC O9F3,0AlD,OAe9,OA0D,OAF2,0B0Bt0B19,0B2Bt0B42 

0BF4 0C34 

0AE6 0A93,0AAD,0AC5,0AFF,0B24,0B36t0BB4 

OBll 0A64,0B1A,0B1E 
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3. USE PROCEDURE 



3.1 



TABLE OF CONTENTS 



PARAGRAPH 



1. PURPOSE. 



PAGE 



01 



2. PREREQUISITES «.. 01 

2.1 PROGRAM 

2.2 EQUIPMENT 

3. USE PROCEDURE OlA 



3.1 


LOADING 


3.2 


OPERATION 


3.2.1 


SYSTEMS I/O CONFIGURATION 


3.2.2 


I/O READY 


3.2.3 


NUMBER OF TEST LOOPS 




A. CE METER TEST 




B. CUSTOMER METER TEST 


3.2.4 


CONTROL CIRCUITRY 


3.3 


TABLE OF WAITS 


3.4 


TERMINATIONS 



3.2 



4. PRINTOUTS (NONE) 

5. COMMENTS (METHOD OF TEST) 

6. APPENDIX (NONE) 



03 



1. PURPOSE 

A. 
B. 



TO CHECK THE ACCURACY OF ALL OF THE USE METERS. 

WHEN THE 1131 USE METER IS SWITCHED TO CE MODEt ONLY THE CE. METER 

ADVANCES. 



PREREQUISITES 



2.1 



2.2 



PROGRAM 

THIS PROGRAM DOES NOT RUN UNDER CONTROL OF THE 1130 DIAGNOSTIC 
MONITOR. USES THE RELOCATABLE DIANOSTIC LOADER FOR THE 1442 
OR THE 2501. 

EQUIPMENT 

CUSTOMER ENGINEER USE METER KEY. 



PROGRAM LOADING 
Tfl LOAD FROM CARDS 

A. PLACE THE RELOCATING LOADER, AND THE METER TEST IN THE READER 

I^ THAT BROER. 
8. HAKE READER READY. 
C PRESS THE 1131 RESET KEY. 
0. PRESS THE 1131 PROGRAM LOAD KEY. 
E. IF THE PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW ADDRESS 

/0160 REFER TO THE RELOCATING LOADER DOCUMENTATION. 

TO LOAD FROM PAPER TAPE 

A. PLACE THE RELOCATING LOADER IN THE READER. 

B. MAKE THE READER READY. 

C PRESS THE 1131 RESET KEY. 

0. PRESS THE 1131 PROGRAM LOAD KEY. 

E. LOADER WILL LOAD AND HALT AT WAIT 30F6 (B REG). 

F. PLACE THE METER TEST IN THE READER. 

G. MAKE THE READER READY. 

H> PRESS PROGRAM START. 

X. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW ADDRESS 
/0160 REFER TO RELOCATING LOADER DOCUMENTATION. 

OPERATION 



A. CPU SPEED — WAIT 



(30FF 



WAIT FF) 



SET /FFFF FOR 2.2 US CPU SPEED. SET /OOOO FOR 3.6 US CPU SPEED 
IW ENTRY SWITCHES. PRESS START TO CONTINUE. 



B. FILE AREA CODE SELECT 



WAIT 



(3000) 



WAIT ZERO (3000) IS TO SELECT THE FILE THE PROGRAM 
IS TO RUN WITH. IF DISK IS TO BE BYPASSED OR THERE IS NOT A 
DISK ON THE SYSTEM THE CONSOLE ENTRY SWITCHES MUST BE SET TO 
ZERO (0000). 

THE FOLLOWING ENTRY SWITCH SETTINGS WILL SELECT THE FILES. ONLY 
ONE BIT POSITION SHOULD BE SET HOWEVER, THE RIGHT MOST SWITCH 
SET ON TAKES PRECEDENCE. 



ENTRY SWITCH 15 EQUALS BASE FILE 

ENTRY SWITCH 14 EQUALS FILE ONE 

ENTRY SWITCH 13 EQUALS FILE TWO 

ENTRY SWITCH 12 EQUALS FILE THREE 

ENTRY SWITCH 11 EQUALS FILE FOUR 



C SELECT SYSTEM I/O UNITS 



WAIT 1 



(SEE NOTE - SECTION 5.3) 

(SEE NOTE - SECTION 5.3) 

(SEE NOTE - SECTION 5.3) 

(SEE NOTE - SECTION 5.3) 

(3001) 



THE SYSTEM I/O CONFIGURATION MUST NOW BE SET IN THE CONSOLE ENTRY 
SWITCHES. USE THE FOLLOWING FORMAT. 

BIT 15 ON = SYSTEM HAS FILE STORAGE. 

BIT 14 ON = SYSTEM HAS 1442 

BIT 13 ON = SYSTEM HAS 1132 

BIT 12 ON = 1403 

BIT 10 ON = 1442 M5 

BIT 11 ON = 1231 

BIT 9 ON = 2501 

FOR EXAMPLE, IF A SYSTEM HAS THREE OF THE I/O DEVICES, THEN THREE 

BIT SWITCHES WOULD BE TURNED ON. (AN EXAMPLE IS 2501,1442 M5 

£ FILE = /0051) 
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3.2.2 MAKE THE I/O UNITS READY. 

1442- PLACE A FEW CARDS IN THE FEED HOPPER AND PRESS THE 1442 START 

KEY TO MAKE THE 1442 READY. 

1132 - TURN ON THE POWER SWITCH, AND PRESS THE 1132 START KEY 
TO MAKE THE 1132 READY. 

PRESS 1131 START BUTTON. PROGRAM WILL GO TO WAIT 2. 

3.2.3 NUMBER OF TEST LOOPS — WAIT 2 ( 3002 1 

THIS SECTION WILL BE EXECUTED EITHER IN THE CUSTOMER METER OR CE 
METER ENVIRONMENT. CUSTOMER ENVIRONMENT IS WITH CE METER OFF AND 
CE USE KEY IN OFF POSITION. 

A. TO CHECK CE MODE 

1. SET THE CONSOLE ENTRY SWITCHES TO INDICATE THE NUMBER OF 72 
SECOND LOOPS THAT YOU WISH TO MAKE. IF ONE LOOP IS DESIRED, 
TURN ON BIT 15. IF TWO LOOPS ARE DESIRED, TURN ON BIT 

14. ETC. 

2. RECORD ALL METER READINGS. 

3. PRESS 1131 START KEY. 

4. ENTRY SWITCH SETTING OF ZERO WILL BRANCH BACK TO WAIT 2. 

NOTE 
SEE 3.3 TABLE OF WAITS IF A WAIT OCCURS. 

5. PROGRAM WILL STOP AT WAIT A OR B WHEN THE DESIRED DELAY 
IS COMPLETED. METER ACCURACY SHOULD BE PLUS OR MINUS XX. 

6. CE. METER SHOULD HAVE ADVANCED .02 HOURS FOR EACH LOOP RUN. 
THE CUSTOMER METERS SHOULD NOT HAVE MOVED. 

7. TO REPEAT LOOP, PRESS START KEY. 

8. SWITCH 1131 METER OFF OF CE MODE. 

B. TO CHECK CUSTOMER METERS 

1. SET THE CONSOLE ENTRY SWITCHES TO INDICATE THE NUMBER OF 72 
SECOND LOOPS THAT YOU WISH TO MAKE. IF ONE LOOP IS DESIRED, 
TURN ON BIT 15. IF TWO LOOPS ARE DESIRED, TURN ON BIT 

14. ETC. 

2. RECORD ALL METER READINGS. 

3. PRESS 1131 START KEY. 

4. ENTRY SWITCH SETTING OF ZERO WILL BRANCH BACK TO WAIT 2. 

NOTE 
SEE 3.3 TABLE OF WAITS IF A WAIT OCCURS. 

5. PROGRAM WILL STOP AT A WAIT (A OR B) WHEN THE DESIRED DELAY 
IS COMPLETED. METER ACCURACY SHOULD BE PLUS OR MINUS XX. 

6. THE CUSTOMER METERS SHOULD HAVE ADVANCED .02 HOURS FOR EACH 
LOOP RUN. THE CE. METER SHOULD NOT HAVE MOVED. 

7. TO REPEAT LOOP, PRESS START KEY. 



3.2.4 CONTROL CIRCUITRY CHECK 

1. WHILE RUNNING THE PROGRAM IN A 72 SECOND DELAY LOOP. 

A. THE 1132 METER SHOULD STOP IF THE 1132 CARRIAGE RESTORE OR 
CARRIAGE SPACE KEY IS PRESSED. 

B. THE 1442 METER SHOULD STOP IF THE 1442 NPRO KEY IS PRESSED. 

2. CHECK THAT NO METERS ARE MOVING WHILE PROGRAM IS AT WAIT A OR B. 

3. WHENEVER THE 1131 METER IS TURNED ON, THERE IS A DELAY CIRCUIT 
THAT KEEPS THE METER RUNNING FOR A MINIMUM OF 400 MILLISECONDS. 
TO CHECK THIS CIRCUIT, SET THE 1131 MODE SWITCH TO SINGLE 
INSTRUCTION(SI). WHEN THE 1131 START KEY IS PRESSED, THE RUN 
LAMP SHOULD GLOW FOR AN INSTANT (400M.S.) IF TROUBLE IS SUSPECTED 
AN OSCILLOSCOPE SHOULD BE USED. 

3.3 TABLE OF WAITS 

WAIT -1 THIS WAIT IS FOR SETTING CPU SPEED INDICATION. 

SET ENTRY SWITCHES 6 PRESS START. DEFAULT IS 3.6 US. 

WAIT SELECT FILE AREA CODE. (AREA CODE OF FILE TO BE TESTED.) 
PRESS START. 

WAIT 1 SET THE I/O CONFIGURATION IN THE CONSOLE ENTRY SWITCHES. 
PRESS THE 1131 START BUTTON. 

WAIT 2 SET THE CONSOLE ENTRY SWITCHES TO INDICATE THE NUMBER 
OF 72 SECOND (.02 HOURS) LOOPS DESIRED. PRESS 1131 
START BUTTON TO BEGIN TEST. 

WAIT 3 THE 1442 IS NOT READY OR THE INTERRUPT WAS LOST. TO PROCEED, 
PRESS START. TO RETRY, PRESS CPU RESET AND START BUTTONS. 

WAIT 4 THE 1132 IS NOT READY OR THE INTERRPUT WAS LOST. TO PROCEED, 
PRESS START. TO RETRY, PRESS CPU RESET AND START BUTTONS. 

WAIT 5 THE 1403 IS NOT READY OR THE INTERRUPT WAS LOST. TO PROCEED, 
PRESS START. TO RETRY, PRESS CPU RESET AND START BUTTONS. 
THIS IS FOR TRANSFER ONLY. 

WAIT 6 THE DISK IS NOT READY OR THE INTERRUPT WAS LOST. TO PROCEED, 
PRESS START. TO RETRY, PRESS CPU RESET AND START BUTTONS. 

WAIT 7 THE 2501 IS NOT READY OR THE INTERRUPT WAS LOST. TO PROCEED, 
PRESS START. TO RETRY, PRESS CPU RESET AND START BUTTONS. 

WAIT 8 THE 1231 IS NOT READY OR THE INTERRUPT WAS LOST. TO PROCEED, 
PRESS START. TO RETRY, PRESS CPU RESET AND START BUTTONS. 

WAIT 9 THE 1442 M5 IS NOT READY OR THE INTERRUPT WAS LOST. TO 
PROCEED, PRESS CPU RESET AND START BUTTONS. 

WAIT A END OF PROGRAM LOOP PASSES USING CPU ONLY. PRESS START TO 
REPEAT TEST. 

WAIT B END OF PROGRAM LOOP PASSES USING CPU AND DISK ONLY. PRESS 
START TO REPEAT TEST. 

WAIT C 4.0ST NT,RP,T OR ERROR AFTER 80 COLUMN READ. OP COMPLETE FOR 
END OF CARD. PRESS START TO PROCEED. PRESS CPU RESET £, 
; START TO RETRY. 

WAIT D LOST NTRPT OR ERROR ON 1403 PRINT OP COMPLETE. PRESS START 
TO PROCEED. PRESS CPU RESET & START TO RETRY. 
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METER TEST 

3.4 TERMINATIONS 

THE PROGRAM WILL STOP AT WAIT A OR B WHEN THE TEST IS COMPLETED. 
TO REPEAT TEST, PRESS 1131 START BUTTON. 

A. PRINTOUTS (NONE) 

5. COMMENTS 

THE TESTING METHOD IS ACCOMPLISHED ONE OF TWO WAYS. 

1. IF THE SYSTEM IS EQUIPPED WITH DISK STORAGE, 7.2 SECONDS OF EACH 
72 SECOND DELAY LOOP WILL BE USED TO ACCESS THE DISK CARRAIGE. 
THIS CHECKS THE CIRCUITRY TO THE 'USE METER' FROM THE 'SEEK' 
CIRCUITS. THE REMAINING 64.8 SECOND DELAY IS ACCOMPLISHED BY 
ADDITION IN THE ACCUMULATOR. 7.2 SECONDS = ONE DIVISION ON THE 
'USE METER'. 

2. IF THE SYSTEM IS NOT EQUIPPED WITH DISK STORAGE, THE ENTIRE 72 
SECOND DELAY IS ACCOMPLISHED IN THE ACCUMULATOR. 

3. NOTE ~ THE USE METERS AND THE RUN LITE DO NOT OPERATE 

CONTINUOUSLY WHEN USING FILES 1,2,3 AND 4. 
THE RUN LITE WILL GO OUT AND THE USE METERS WILL STOP 
MOMENTARILY WHILE THE FILES ARE ACCESSING. THIS ACCOUNTS 
FOR THE DIFFERENCE OR APPARENT ERROR IN METER READINGS. 
THIS APPLIES ONLY TO THE 1133 FILES AND NOT TO FILE 0. 
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01F4 

01F4 03A4 



ORG 


500 


DC 


/03A4 



01F5 





6500 


0351 


BEGIN 


tox 


01F7 





6D00 


0009 




STX 


01F9 





6500 


0356 




LDX 


OlFB 





6000 


OOOA 




STX 


OlFD 





6500 


035B 




LDX 


OlFF 





6D00 


00 00 




STX 



PID 



* INTERRUPT TRANSFER VECTORS * 

LI INTl 
LI /0009 
LI INT2 
LI /OOOA 
LI iNT4 
LI /OOOC 
* 

* * 

* RE-INITIALIZATION SUBRTN * 

* * 

ZERO ADDR INST 
SET IT IN ADDR ZERO 
BR INST 
SET IN ADDR 4 
GET ADDR 
SET IN ADDR 5 
CLEAR INDEX 
SET IN ADDR I 
CLEAR INDEX 
SET IN ADDR 2 
CLEAR INDEX 
SET IN ADDR 3 
* 

* ■ * 

* CPU CLOCK SPEED SUBRTN * 

* SET ENTRY SWITCH * 

* TO /FFFF FOR 2.2 « 

* TO /OOOO FOR 3.6 * 
« * 

* 



02 01 





6500 


6004 


LDX 


LI 


/6004 


0203 





6D0O 


0000 


STX 


LI 





0205 





6500 


6400 


LDX 


LI 


/6400 


0207 





6D00 


0004 


STX 


LI 


4 


0209 





6500 


01F5 


LDX 


LI 


BEGIN 


020B 





6D00 


0005 


STX 


LI 


5 


020D 





6100 




LDX 


1 





020E 





6D00 


0001 


STX 


LI 


1 


0210 





62 00 




LDX 


2 





0211 





6E00 


0002 


STX 


L2 


2 


0213 





6300 




LDX 


3 





0214 





6F00 


0003 


STX 


L3 


3 



0216 30FF 



WAIT X -1 



CPU CLOCK SPEED 

READ ENTRY SW DATA 

GET DATA 

TEST FOR /FFFF 

SKIP IF NOT ZERO 

BR TO SET 2.2 US SW 

CLEAR A REG 

BR TO SET 3.6 US SW 

GET XTNT 

SET CLOCK SW IND 

* 

* 

* * 

* CLEAR 1132 AND SET 1403 I/O AREA * 

* * 



0217 





ocoo 


0364 




XIO 


L 


CESWS 


0219 





C400 


0388 




LD 


L 


COUNT 


021B 





F400 


049 7 




EOR 


L 


XFFFF 


021D 





4818 






BSC 




+ - 


021E 





7002 






MOX 




CPUXX 


021F 





1010 






SLA 




16 


0220 





7002 




^ 


MOX 




CPUXX+2 


0221 





C400 


049 7 


CPUXX 


LD 


L 


XFFFF 


0223 





D400 


0496 




STO 


L 


CLOCK 



0225 6142 




LDX 


1 


66 


SET LDX CTRL 


0226 6200 




LDX 


2 





SET ADDR CTRL 


0227 C400 0498 




LD 


L 


X7F7F 


GET DATA CHAR 


0229 0600 0400 


PRNTX 


STO 


L2 


P1403 


SET IN I/O AREA 


022B 7201 




MDX 


2 


1 


ADDR ADV 


022C 71FF 




MDX 


1 


-1 


CTRL ADV 


022D 70FB 




MDX 




PRNTX 


BR LOOP 



3A 400020 
3A400030 
3A400040 
3A400050 
3A400060 
3A4 00070 
3A400080 
3A400090 
3A400100 
3A400110 
3A400120 
3A400130 
3A400140 
3A400150 
3A400160 
3A400170 
3A400180 
3A40O190 
3A400200 
3A400210 
3A400220 
3A400230 
3A400240 
3A400250 
3A400260 
3A400270 
3A400280 
3A400290 
3A400300 
3A400310 
3A400320 
3A400330 
3A400340 
3A400350 
3A400360 
3A4 00370 
3A400380 
3A400390 
3A400400 
3A400410 
3A400420 
3A400430 
3A400440 
3A400450 
3A400460 
3 A4 00470 
3A400480 
3A400490 
3A400500 
3A400510 
3A400520 
3A400530 
3A400540 
3A400550 
3A400560 
3A400570 
3A400580 
3A400590 
3A400600 
3A400610 
3A400620 
3A400630 
3A400640 
3A400650 
3A400660 
3A400670 
3A400680 
3A400690 



022E 





6220 






LDX 


2 


32 






3A400700 


022F 





6107 






IDX 


1 


7 






3A400710 


0230 





C400 


0362 




LO 


L 


USWRl 


SET ACC TO 




3A4O072O 


0232 





0200 




CLEAR 


STO 


2 




SET PRINT AREA TO 


3A400730 


0233 





7201 






MDX 


2 


1 






3A400740 


0234 





71FF 






MOX 


1 


-1 






3A400750 


0235 





70FC 






MOX 




CLEAR 






3A400760 


0236 





C400 


0360 




LD 


L 


HOME 






3A400770 


0238 





0200 






STO 


2 





SET LOC 39 TO 0001 


3A400780 










* 












3A400790 










* 












3A400800 










* 












3A400810 










********************************************* 


3A400820 










* 










* 


3A400830 










* 


FILE 


AREA CODE SETUP SUBRTN 


* 


3A400840 










* 






SW 15 EQ 


FILE BASE 


* 


3A4 00850 










* 






SW 14 EQ 


FILE 1 


* 


3A400860 










* 






SW 13 EQ 


FILE 2 


* 


3A400870 










* 






SW 12 EQ 


FILE 3 


* 


3A400880 










* 






SW 11 EQ 


FILE 4 


* 


3 A4 0089 










* 










* 


3A400900 










********************************************* 


3A400910 


0239 





3000 




WAITO 


WAIT 







SEL FILE WAIT 




3A400920 


023A 





OCOO 


0364 




XIO 


L 


CESWS 


READ ENTRY SWITCHES 


3A400930 


023C 





C400 


0388 




LD 


L 


COUNT 


GET SWITCH DATA 




3A400940 


023E 





4804 






BSC 




E 


SKIP IF EVEN 




3A400950 


023F 





700F 






MDX 




FILED 


SEL BASE FILE 




3A4009 60 


0240 





1801 






SRA 




1 


SHIFT TO CK NXT 


POS 


3A400970 


0241 





4804 






BSC 




E 


SKIP IF EVEN 




3A400980 


0242 





700F 






MDX 




FILEl 


SEL FILE 1 




3A400990 


0243 





1801 






SRA 




1 


SHIFT TO CK NXT 


POS 


3A401000 


0244 





4804 






BSC 




E 


SKIP IF EVEN 




3A4C1C10 


0245 





700F 






MDX 




FILE2 


SEL FILE 2 




3A401020 


0246 





1801 






SRA 




1 


SHIFT TO CK NXT 


POS 


3A401030 


0247 





4804 






BSC 




E 


SKIP IF EVEN 




3A401040 


0248 





700F 






MDX 




FILE3 


SEL FILE 3 




3A401050 


0249 





1801 






SRA 




1 


SHIFT TO CK NXT 


POS 


3A401060 


024A 





4804 






BSC 




E 


SKIP IF EVEN 




3A401070 


024B 





700F 






MDX 




FILE4 


SEL FILE 4 




3A401080 


024C 





1010 






SLA 




16 


CLEAR A REG 




3A401090 


024D 





D029 






STO 




NOFIL 


SET FILE SW TO OFF 


3A401100 


024E 





7029 




* 
* 


MOX 




WAITl 


BR BY FILE SEL 




3A401110 
3A401120 
3A401130 


024F 





6500 


2000 


FILED 


LDX 


LI 


/2000 


GET AREA CODE 




3A401140 


0251 





700B 






MDX 




FILAC 


BR TO SETUP CTRLS 


3A401150 


0252 





6500 


8800 


FILEl 


LDX 


LI 


/8800 


GET AREA CODE 




3A401160 


0254 





7008 






MDX 




F I LAC 


BR TO SETUP CTRLS 


3A401170 


0255 





6500 


9000 


FILE2 


LDX 


LI 


/9000 


GET AREA CODE 




3A401180 


0257 





7005 






MDX 




FILAC 


BR TO SETUP CTRLS 


3A401190 


0258 





6500 


9800 


FILE3 


LDX 


LI 


/9800 


GET AREA CODE 




3A401200 


025A 





7002 






MDX 




FILAC 


BR TO SETUP CTRLS 


3A401210 


025B 





6500 


AOOO 


FILE4 

* 
* 


LDX 


LI 


/AOOO 


GET AREA CODE 




3A401220 
3A401230 
3A401240 


025D 





6915 




FILAC 


STX 




ACHLD 


SAVE AREA CODE 




3A401250 


025E 





C014 






LD 




ACHLD 


GET AREA CODE 




3A401260 


025F 





E816 






OR 




FRSET 


OR IN FUNCTION 




3A401270 


0260 





040 


0363 




STO 


L 


DSWRlEl 


SET NEW INST 




3A401280 


0262 





F013 






EOR 




FRSET 


CLEAR FUNCTION 




3A401290 


0263 





E810 






OR 




ARMOT 


OR IN FUNCTION 




3A401300 


0264 





D400 


0377 




STO 


L 


DLY2S1 


SET NEW INST 




3A401310 


0266 





040 


037B 




STU 


L 


DLY4&1 


SET NEW INST 




3A401320 


0268 





D400 


0361 




STO 


L 


HOME 61 


SET NEW INST 




3A401330 


026A 





F009 






EOR 




ARMOT 


CLEAR FUNCTION 




3A401340 


026B 





E809 






OR 




ARMIN 


OR IN FUNCTION 




3A401350 


026C 





0400 


0375 




STO 


L 


DLY161 


SET NEW INST 




3A401360 


026E 





D400 


0379 




STU 


L 


DLY3£1 


SET NEW INST 




3A401370 
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0270 F004 




EOR 


ARMIN 


0271 0005 




STO 


NOFIL 


0272 7005 


* 
* 


MOX 


WAITl 



0273 0000 

0274 0404 

0275 0400 

0276 0701 

0277 0000 



CLEAR FUNCTION 

SET FILE SW TO FILE X 

BR TO CONTINUE 



AREA CODE HOLDER 



0278 
0279 
027B 
027D 
027F 
0280 
0282 
0283 
0285 
0286 
0288 
0289 
028B 
028C 
028E 
028F 
0291 
0293 
0294 



3001 
OCOO 
C400 
D400 
1801 
D400 
1801 
D400 
1801 
D400 
1801 
D400 
1801 
D400 
1801 
D400 
C400 
4804 
706C 



0364 
0388 
0389 

038A 

038B 

038C 

0380 

038E 

038F 
389 



029 5 3002 
0296 OCOO 0364 
0298 C400 0388 
029A 4C18 0295 

029C 6780 0388 
029E C400 038A 
02A0 4804 
02 A 1 704E 

02A2 C400 038B 
02A4 4804 
02 A5 70 56 

02A6 C400 038C 



ACHLD DC 

* 

ARMOT DC /0404 

ARMIN DC /0400 

FRSET DC /0701 

NOFIL DC 

* 

* READ THE CONSOLE ENTRY SWITCHES TO 

* DETERMINE THE SYSTEM CONFIGURATION 

* BIT 15 # DISK 



SEEK OUT INST FNCTN 



SEEK IN INST FNCTN 



SENSE RESET DSW 
NO FILE — PGM SW 



* 
* 



BIT 14 

BIT 13 

BIT 

BIT 

BIT 

BIT 



12 

11 

10 

9 



# 1442 

# 1132 
« 1403 

# 1231 

# 1442 M 

# 2501 



********************************************* 



WAITl WAIT 
XIO 
LD 
STO 
SRA 
STO 
SRA 
STO 
SRA 
STO 
SRA 
STO 
SRA 
STO 
SRA 
STO 
LD 
BSC 
MDX 



1 

CESWS 

COUNT 

DISKl 

1 

SRPl 

1 

PRTR2 

1 

HPTRl 

1 

OHRl 

1 

PUOl 

1 

RDHSl 

DISKl 

E 

DISK 



ENTER SYS CONF. 



1442 



1132 



1403 



1231 



1442M5 



2501 



********************************************* 

* READ THE CONSOLE ENTRY SWITCHES 
* 

* START THE 1132 , 1442 , 1403t 1231, 1442M5 AND 

* 2501 METERS IF SELECTED. 
* 

ENTER NO OF DLY LOOPS 
SENSE CON ENTRY SWS 
GET COUNT 
BR IF ZERO 

XR3# LOOP COUNT 



START 1442 



WAIT2 


WAIT 




2 


SENSE 


XIO 


L 


CESWS 




LD 


L 


COUNT 


« 


BSC 


L 


WAIT2,t 


LOX 


13 


COUNT 




LD 


L 


SRPl 




BSC 




E 


* 
SNSl 


MOX 




SRP2 


LD 


L 


PRTR2 




BSC 




E 


* 
SNS3 


MDX 




PRTR3 


LD 


L 


HPTRl 



START 1132 



3A401380 

3A401390 

3A401400 

3A401410 

3A401420 

3A401430 

3A401440 

3A401450 

3A401460 

3A401470 

3A401480 

3A401490 

3A401500 

3A401510 

3A401520 

3A401530 

3A401540 

3A401550 

3A401560 

3A401570 

3A401580 

3A401590 

3A401600 

3A401610 

3A401620 

3A401630 

3A401640 

3A401650 

3A401660 

3A401670 

3A401680 

3A401690 

3A401700 

3A401710 

3A401720 

3A401730 

3A401740 

3A401750 

3A401760 

3A401770 

3A401780 

3A401790 

3A401800 

3A401810 

3A401820 

3A401830 

3A401840 

3A401850 

3A401860 

3A401870 

3A401880 

3A401890 

3A4019 00 

3A401910 

3A4019 20 

3A401930 

3A401940 

3A401950 

3A401960 

3A401970 

3A401980 

3A401990 

3A402000 

3A402010 

3A402020 

3A402030 

3A402040 

3A402050 



02A8 4804 




BSC 




E 


02A9 7014 


* 


MOX 




HPTR2 


02AA C400 038D 


SNS6 


LD 


L 


UMRl 


02AC 4804 




BSC 




E 


02AD 701F 


* 
SNS7 


MDX 




UMR2 


02AE C400 038E 


LD 


L 


PUOl 


0280 4804 




BSC 




b 


02B1 7026 


^ 


MDX 




PU02 


02B2 C400 038F 


SNS8 


LD 


L 


RDHSl 


02B4 4804 




BSC 




E 


02B5 702E 


^ 


MDX 




R0HS2 


02B6 COCO 


SNS2 


LD 




NOFIL 


02B7 4C18 0315 




BSC 


L 


ADD1,+- 


02B9 C400 0389 




LD 


L 


DISKl 


02BB 4804 




BSC 




E 


02BC 7072 




MDX 




TESTO 


02BD 7057 


* 


MOX 




ADDl 


02BE 6600 0380 


* 
HPTR2 


LOX 


L2 


DSWR4 


02C0 6E00 035D 




STX 


L2 


INT4£2 


02C2 OCOO 036C 




XIO 


L 


HPTR 


02C4 3005 


WAIT5 


WAIT 




5 


02C5 1001 




SLA 




1 


02C6 4810 




BSC 




- 


02C7 70F6 




MDX 




HPTR2 


02C8 300D 


WAITD 


WAIT 


X 


/OD 


02C9 1002 




SLA 




2 


02CA 4810 




BSC 




- 


02CB 70 FC 




MOX 




WAITD 


02CC 70DD 


* 


MOX 




SNS6 


02CD 6600 0382 


* 
0MR2 


LDX 


L2 


DSWR7 


02CF 6E00 035D 




STX 


L2 


INT462 


02D1 OCOO 036E 




XIO 


L 


OMR 


02D3 3008 


WAIT8 


WAIT 




8 


02D4 1801 




SRA 




1 


02D5 4804 




BSC 




E 


02D6 70F6 




MOX 




0MR2 


02D7 70D6 


« 


MDX 




SNS7 


02D8 6600 0384 


* 
PU02 


LDX 


L2 


DSWR8 


02DA 6E00 0350 




STX 


L2 


INT4£2 


02DC OCOO 0370 




XIO 


L 


PUO 


020E 3009 


WAIT9 


WAIT 




9 


02DF F400 049A 




EOR 


L 


X0800 


02E1 4820 




BSC 




Z 


02E2 70F5 




MDX 




PU02 


02E3 70CE 


* 


MDX 




SNS8 


02b4 6600 0386 


* 
RDHS2 


LOX 


L2 


DSWR9 


02E6 6E00 035D 




STX 


L2 


; INT4C2 


02t8 OCOO 0372 




XIO 


L 


RDHS 


02EA 3007 


WAIT7 


' WAIT 


X 


/07 


02fcB F400 049A 




EOR 


L 


X0800 


02ED 4820 




BSC 




Z 


02EE 70F6 




MDX 




RDHS2 


02EF 70C6 


* 


MDX 




SNS2 


02F0 6600 037C 


* 
SRP2 


LDX 


L2 


DSWR2 



START 1403 



START 1231 



START 1442 M 5 



START 2501 

GET FILE INO SW 

BR IF NO FILE IND 

GET SEL DISK CTRL 

TEST 

BR IF FILE PRESENT 6 SEL 

BR IF NO FILE/SEL 



START 1403 

NO RESPONSE FROM 1403 

SHIFT FOR OP CMPLT 

SKIP IF OP CMPLT 

ERROR BR TO RETRY 

NRDY/LST NTRPT WAIT 

SHIFT TO CK AGAIN 

SKIP IF OP CMPLT 

WAIT LOOP 

BR TO CONTINUE 



START 1231 

NO RESPONSE FROM 1231 



BR TO CONTINUE 



START 1442 M 5 

NO RESPONSE FROM 1442M5 

TEST FOR OK BITS 

SKIP IF OK 

BR TO CONTINUE 



START 2501 
NRDY/LST NTRPT 
TEST FOR OK BITS 
SKIP IF OK 
BR IF NOT OK 
BR TO CONTINUE 



GET NTRPT ADDR 



3A402060 

3A402070 

3A402080 

3A402090 

3A402100 

3A402110 

3A402120 

3A402130 

3A402140 

3A402150 

3A402160 

3A402170 

3A402180 

3A402190 

3A402200 

3A4022I0 

3A402220 

3A402230 

3A402240 

3A402250 

3A402260 

3A402270 

3A402280 

3A402290 

3A402300 

3A402310 

3A402320 

3A402330 

3A402340 

3A4023bO 

3A402360 

3A402370 

3A402380 

3A402390 

3A402400 

3A402410 

3A402420 

3A402430 

3A402440 

3A402450 

3A402460 

3A402470 

3A402480 

3A402490 

3A402500 

3A402510 

3A402520 

3A402530 

3A402540 

3A402550 

3A402560 

3A402570 

3A402580 

3A402590 

3A402600 

3A402610 

3A402620 

3A402630 

3A402640 

3A402650 

3A402660 

3A402670 

3A402680 

3A402690 

3A402700 

3A402710 

3A402720 

3A402730 
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02F2 





6EO0 


035D 




STX 


L2 


INT4S2 


02F4 





OCOO 


0366 




XIO 


L 


SRP 


02F6 





3003 




WAIT3 


WAIT 




3 


02F7 





F400 


049A 




EUR 


L 


X0800 


02F9 





4820 






BSC 




Z 


02FA 





70F5 






MDX 




SRP2 


02FB 





70A6 




« 


MDX 




SNSl 


02FC 





OCOO 


0368 


PRTR3 


XIO 


L 


PRTR 


02FE 





3004 




WAIT4 


WAIT 




4 


02FF 





086A 






XIO 




PRTRl 


0300 





70A6 




* 


MDX 




SNS3 



SET IT IN NTRPT RTN 
START 1442 
NO RESP. FROM 1442 
TEST FOR OK BITS 
SKIP IF OK 



START 1132. 
NO RESP. FROM 
STOP THE 1132 
BR TO CONTINUE 



1132 
INTR 



********************************************* 
* SET DISK TO HOME * 

GET NO FILE SW 
BR IF NO FILE SEL 
SENSE DISK DSW 

IF NOT RDY GO TO WR6 

IS CARR HOME 



SEEK -1 CYL 

DISK LOST NTRPT/NRDY 

BR TO RETRY 

* METER TEST 

* 72 SECOND DELAY USING ONLY THE CPU 

GET CPU SPEED SW 
SKIP IF 3.6 US 
BR FOR 2.2 US RTN 

CONSTANT 

ADD 1 TO ACCUM 



0301 





C400 


0277 


DISK 


LD 


L 


NOFIL 


0303 





4C18 


0295 




BSC 


L 


WAIT2,£- 


0305 





OCOO 


0362 




XIO 


L 


DSWRl 


0307 





1002 






SLA 




2 


0308 





4C2 8 


0313 




BSC 


L 


WAIT6,Z£ 


030A 





1002 






SLA 




2 


030B 





4C28 


0295 




BSC 


L 


WAIT2,tZ 


030D 





6600 


0362 


SEEK 


LDX 


L2 


DSWRl 


030F 





6E00 


0358 




STX 


L2 


INT2&2 


0311 





OCOO 


0360 




XIO 


L 


HOME 


0313 





3006 




WAIT6 


WAIT 


X 


/06 


0314 





70 FO 






MDX 




DISK64 



0315 





C400 


0496 


ADDl 


LD 


L 


CLOCK 


0317 





4820 






BSC 




Z 


0318 





700C 




3^ 


MDX 




FASTX 


0319 





6148 






LDX 


1 


72 


031A 





C075 




ADD2 


LD 




NUM 


031B 





8044 




ADD3 


A 




HOME 


031C 





4820 






BSC 




Z 


031D 





70FD 






MDX 




ADD3 


031E 





71FF 






MDX 


1 


-1 


031F 





70FA 






MDX 




AD02 


0320 





73FF 






MDX 


3 


-1 


0321 





70F3 






MDX 




ADDl 


0322 





300 A 




WAITA 


WAIT 


X 


/OA 


0323 





4C0O 


0239 


« 


BSC 


L 


WAITO 


0325 





6158 




FASTX 


LDX 


1 


88 


0326 





lOAO 




3^ 


SLT 




32 


0327 





8400 


0360 




A 


L 


HOME 


0329 





4C02 


032C 




BSC 


L 


ADD4,C 


032B 





70FB 




* 

ADD4 


MDX 




FASTX62 


032C 





71FF 




MDX 


1 


-1 


032D 





70F8 






MDX 




FASTXEl 


032E 





70F1 




* 


MDX 




WAITA-2 



032F 6500 0362 
0331 6D00 0358 



MODIFY CONSTANT 

MODIFY LOOP COUNT 

CPU ONLY E.O.P. 
BR TO REPEAT TEST 



LOOP CTRL NDX CNT 
CLEAR A £ Q REG 

ADD ONE TO COUNT 
BRANCH IF CARRY UN 
BR LOOP 

DEC CTRL 

BR TO REDO CTR RTN 

BR TO PGM END CTRL 



« METER TEST 

* 72 SECOND DELAY USING THE DISK AND THE CPU* 

TESTO LDX LI DSWRl GET INTERRUPT ADDR 

STX LI INT262 SET ADDR IN NTRPT RTN 



3A402740 

3A402750 

3A402760 

3A402770 

3A402780 

3A402790 

3A402800 

3A402810 

3A402820 

3A402830 

3A402840 

3A402850 

3A402860 

3A402870 

3A402880 

3A402890 

3A402900 

3A402910 

3A4029 20 

3A402930 

3A402940 

3A402950 

3A402960 

3A402970 

3A4029 80 

3A402990 

3A403000 

3A403010 

3A403020 

3A403030 

3A403040 

3A403050 

3A403060 

3A403070 

3A403080 

3A403090 

3A403100 

3A403110 

3A403120 

3A403130 

3A403140 

3A403150 

3A403160 

3A403170 

3A403180 

3A403190 

3A403200 

3A403210 

3A403220 

3A403230 

3A403240 

3A403250 

3A403260 

3A403270 

3A403280 

3A403290 

3A403300 

3A403310 

3A403320 

3A403330 

3A403340 

3A403350 

3A403360 

3A403370 

3A403380 

3A403390 

3A403400 

3A403410 



0351 




0001 




0352 





OCOO 


037E 


0354 





4CC0 


0351 


0356 




0001 




0357 





OCOO 


0000 


0359 





4CC0 


0356 


035B 




0001 




035C 





OCOO 


0000 


035E 





4CC0 


0358 



0360 




0000 


0360 





0001 


0361 





0000 


0362 





0000 


0363 





0000 


0364 





0388 


0365 





3A00 


0366 





0000 


0367 





1402 


0368 





0000 


0369 





3480 


036A 





0000 


036B 





3440 


036C 





0400 


036D 





ADOO 


036E 





0000 


036F 





4402 


0370 





0000 


0371 





1402 


0372 





0443 


0373 





4E00 


0374 





OOCA 



SEEK&202 CYL 

SEEK-202 CYL 

SEEK&202 CYL 

SEEK-202 CYL 

SEEKe76 CYL 

SEEK-76 CYL 

GET CPU SPEED 

SKIP IF 3.6 US CLOCK 

BR FOR 2.2 US SETUP 

CTRL CNT 

BR TO SET UP 3.6 US 

SET 2.2 US CTRL CNT 
ADD 1 TO ACCUM 

MODIFY CONSTANT 

MODIFY LOOP COUNT 

CPU + FILE E.O.P 
BR TO REPEAT TEST 



3j:#*sfle:itsCs*J)K*##:*:3[c:^:(£:^:*c3j:s)cs)t:^*** ********* ************ 

* INTERRUPT SUBROUTINES * 
********************************************* 

INTl BSS 

XIO L 

BOSC I 
INT2 BSS 

XIO L 

BOSC I 
INT4 BSS 

XIO L 

BOSC I 
* 
********************************************* 

* I/O CONTROL COMMANDS AND CONSTANTS * 
********************************************* 

BSS E 



0333 





OCOO 0374 




XIU 


L DLYl 


0335 





3000 




WAIT 




0336 





083F 




XIU 


DLY2 


0337 





3000 




WAIT 




0338 





083B 




XIU 


OLYl 


0339 





3000 




WAIT 




033A 





083B 




XIU 


DLY2 


033B 





3000 




WAIT 




033C 





083B 




XIO 


DLY3 


0330 





3000 




WAIT 




033E 





0838 




XIO 


DLY4 


033F 





3000 




WAIT 




0340 





C400 0496 




LD 


L CLOCK 


0342 





4820 




BSC 


Z 


0343 





7002 


« 


MDX 


TtSTX 


0344 





613C 


LDX 


1 60 


0345 





7001 


* 
TESTX 


MDX 


TESTX61 


0346 





6161 


LDX 


1 97 


0347 





8018 


ADD 


A 


HOME 


0348 





4820 




BSC 


Z 


0349 





70FD 




MDX 


ADD 


034A 





71FF 




MDX 


1 -1 


034B 





70FB 




MDX 


ADD 


034C 





73FF 




MDX 


3 -1 


034D 





70E1 




MDX 


TESTO 


034E 





3008 


WAITB 


WAIT 


X /OB 


034F 





4C00 0239 




BSC 


L WAITO 



1 


1132 




DSWR3 


SENSE DSW 




INTl 






1 


DISK 




*-* 


SENSE DSW 




INT2 






1 


INTERRUPT 


LEVEL 4 


*-* 


SENSE DSW 




INT4 







HOME DC 

DC 
DSWRl OC 

DC 
CESWS DC 

DC 
SRP DC 

DC 
PRTR DC 

DC 
PRTRl DC 

DC 
HPTR DC 

DC 
OMR DC 

DC 
PUO DC 

DC 
RDHS DC 

DC 
DLYl DC 



/OOOl 
/OOOO 
/OOOO 
/OOOO 
COUNT 
/3A00 
/OOOO 
/1402 
/OOOO 
/3480 
/OOOO 
/3440 
P1403 
/ADOO 
/OOOO 
/4402 
/OOOO 
/1402 
R2501 
/4E00 
/OOCA 



lOCC TO SEEK HOME 
lOCC TO SENSE RESET 
lOCC TO RD BIT SWS 

lOCC TO START 1442 

METER 
lOCC TO START 1132 

METER 
lOCC TO STOP 1132 

EMIT INTERRUPTS 
START 1403 METER 

METER 
lOCC TO START 1231 

METER 
lOCC TO START 1442M5 

METER 
START 2501 METER 

lOCC SEEK TO 202 



3A403420 

3A403430 

3A403440 

3A403450 

3A403460 

3A403470 

3A403480 

3 A4 0349 

3A403500 

3A403510 

3A403520 

3A403530 

3A403540 

3A403550 

3A403560 

3A403570 

3A403580 

3A403590 

3A403600 

3A403610 

3A403620 

3A403630 

3A403640 

3A403650 

3A403660 

3A403670 

3A403680 

3A403690 

3A403700 

3A403710 

3A4U3720 

3A403730 

3A403740 

3A403750 

3A403760 

3A403770 

3A403780 

3A403790 

3A403800 

3A403810 

3A403820 

3A403830 

3A403840 

3A403850 

3A403860 

3A403870 

3A403880 

3A403890 

3A403900 

3A403910 

3A4039 20 

3A403930 

3A403940 

3A403950 

3A4039 60 

3A403970 

3A403980 

3A403990 

3A404000 

3A404010 

3A404020 

3A404030 

3A404040 

3A404050 

3A404060 

3A404070 

3A404080 

3A404090 
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4A 



0375 





0000 


0376 





OOCA 


0377 





0000 


0378 





00 4C 


0379 





0000 


037A 





00 4C 


037B 





0000 


037C 





0000 


037D 





1702 


037E 





0000 


037F 





3701 


0380 





0000 


0381 





AFOl 


0382 





0000 


0383 





4701 


0384 





0000 


0385 





1702 


0386 





0000 


0387 





4F01 


0388 





0000 


0389 





0000 


038A 





0000 


038B 





0000 


038C 





0000 


038D 





0000 


038E 





0000 


038F 





0000 


0390 





1340 


0400 






0400 




0042 


0442 





FFFF 



0443 0050 

0444 00 50 
0494 FFFF 



049 6 



0000 



0496 0000 

0497 FFFF 

0498 7F7F 

0499 0801 

049A 0800 

049C 01F5 

NO STATEMENTS 





DC 


/OOOO 


DLY2 


DC 


/OOCA 1 




DC 


/OOOO 


DLY3 


DC 


/004C 1 




DC 


/OOOO 


DLY4 


DC 


/004C 1 




DC 


/OOOO 


DSMR2 


DC 


/OOOO ] 




DC 


/1702 


DSWR3 


DC 


/OOOO 1 




DC 


/3701 


DSMR4 


DC 


/OOOO 1 




DC 


/AFOl 


DSWR7 


DC 


/OOOO 1 




DC 


/4701 


DSWR8 


DC 


/OOOO 1 




DC 


/1702 


DSWR9 


DC 


/OOOO 




DC 


/4F01 


COUNT 


DC 


/OOOO ( 


DISKl 


DC 


*-* : 


SRPl 


DC 


«-« : 


PRTR2 


DC 


*-* 


HPTRl 


DC 


«-* ; 


OMRl 


DC 


*-* : 


PUOl 


DC 


*-* : 


RDHSl 


DC 


*-* 


NUM 


DC 


/I 340 


3jC 


ORG 


/0400 


P1403 


BSS 


66 1 




DC 


/FFFF 


« 






* 






R2501 


DC 


80 




BSS 


80 




DC 


/FFFF 


if 






* 








BSS 


E 


* 






* 






CLOCK 


DC 


1 


* 






XFFFF 


DC 


/FFFF 


* 






X7F7F 


DC 


/7F7F 1 


X0801 
4c 


DC 


/0801 


X0800 


DC 


/0800 




END 


BEGIN 


FLAGGED IN THE 


ABOVE ASSEMBLY 



lOCC SEEK TO HOME 
lOCC SEEK TO 076 
lOCC SEEK TO HOME 

lOCC TO SENSE AND 

RESET 1442 DSW 
lOCC TO SENSE AND 

RESET 1132 DSW 
lOCC TO SENSE AND 

RESET 1403 DSW 
lOCC TO SENSE AND 

RESET 1231 
lOCC TO SENSE AND 

RESET 1442M5 
lOCC TO SENSE AND 

RESET 2501 
CON ENTRY SW SETTING 



SYSTEM HAS DISK 
SYSTEM HAS 1442 
SYSTEM HAS 1132 
SYSTEM HAS 1403 
SYSTEM HAS 1231 
SYSTEM HAS 1442M5 
SYSTEM HAS 2501 



PRINT AREA 



BIT 15 
14 
13 
12 

11 
10 
9 



CPU CLOCK IND 



PRINT BLANKS 



3A404100 
3A404110 
3A404120 
3A404130 
3A404140 
3A4 04150 
3A404160 
3A404170 
3A404180 
3A4 04190 
3A404200 
3 A4 042 10 
3A404220 
3A404230 
3A404240 
3A404250 
3A404260 
3A404270 
3A404280 
3A404290 
3A404300 
3A404310 
3A404320 
3A404330 
3A404340 
3A4 04350 
3A404360 
3A4 04370 
3A404380 
3A404390 
3A404400 
3A4 04410 
3A404420 
3A404430 
3A404440 
3A404450 
3A404460 
3A404470 
3A404480 
3 A4 04490 
3A404500 
3A404510 
3A404520 
3A4 04530 
3A404540 
3A404550 
3A404560 
3A404570 
3A404580 
3A404590 
3A404600 
3A4 04610 
3A404620 
3A404630 



ACHLO 


0273 


025D 025E 




ADD 


0347 


0349 034B 




ADDl 


0315 


02B7 02BD 0321 




AUD2 


031A 


031F 




ADU3 


031B 


031D 




ADD4 


032C 


0329 




ARMIN 


0275 


026B 0270 




ARMOT 


0274 


0263 02 6A 




BEGIN 


01F5 


0209 049C 




CESWS 


0364 


0217 023A 0279 


0296 


CLEAR 


0232 


0235 




CLOCK 


0496 


022 3 0315 0340 




COUNT 


0388 


0219 023C 027B 


0298 029C 0364 


CPUXX 


0221 


021E 0220 




DISK 


030X 


0294 0314 




DISKl 


0389 


027D 0291 02B9 




DLYl 


0374 


026C 0333 0338 




0LY2 


0376 


0264 0336 033A 




DLY3 


0378 


026E 033C 




DLY4 


037A 


0266 033E 




DSWRl 


0362 


0230 0260 0305 


030D 032F 


DSWR2 


037C 


02F0 




0SWR3 


037E 


0352 




DSWR4 


0380 


02BE 




DSWR7 


0382 


02CD 




DSWR8 


0384 


02D8 




DSWR9 


0386 


02E4 




FASTX 


0325 


0318 032B 032D 




FILAC 


025D 


0251 0254 0257 


025A 


FILEO 


024F 


023F 




FILEl 


0252 


0242 




FILE2 


0255 


0245 




FILE3 


0258 


0248 




FILE4 


025B 


024B 




FRSET 


0276 


025F 0262 




HOME 


0360 


0236 0268 0311 


031B 0327 0347 


HPTR 


036C 


02C2 




HPTRl 


038C 


0286 02A6 




HPTR2 


02BE 


02A9 02C7 




INTl 


0351 


01F5 0354 




INT2 


0356 


01F9 030F 0331 


0359 


INT4 


035B 


OlFD 02C0 02CF 


02DA 02E6 02F2 035E 


NOFIL 


02 77 


024D 0271 02B6 


0301 


NUM 


0390 


031A 




OMR 


036E 


02D1 




OMRl 


038D 


0289 02AA 




OMR 2 


02CD 


02AD 02D6 




PRNTX 


0229 


0220 




PRTR 


0368 


02FC 




PRTRl 


036A 


02FF 




PRTR2 


038B 


0283 02A2 




PRTR3 


02FC 


02A5 




PUU 


0370 


02DC 




PUOl 


038E 


028C 02AE 




PU02 


02D8 


02B1 02E2 




P1403 


0400 


0229 036C 




RDHS 


0372 


02E8 




ROHSl 


038F 


028F 0282 




RDHS2 


02E4 


02B5 02EE 




R2501 


0443 


0372 




SEEK 


030D 






SENSE 


0296 






SNSl 


02A2 


02FB 




SNS2 


02B6 


02EF 




SNS3 


02A6 


0300 




SNS6 


02AA 


02CC 




SNS7 


02AE 


0207 




SNS8 


02B2 


02E3 





DATE 
EC NO. 



02JAN66 
415490 



15FEB68 
420403 



010CT68 
571005 



PROG ID 
PAGE 



03A4-1 

4 



DATE 
EC NO. 



02JAN66 
416490 



15FEB68 
420403 



010CT68 
571005 



PROG ID 
PAGE 



03A4-1 
4A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FUR THE 1130 SYSTEM HART NO. 2191248 

PAGE 5 

METER TEST - 1130 



SRP 


0366 


02F4 




SRPl 


038A 


0280 


029E 


SRP2 


02 FO 


02A1 


02FA 


TESTX 


0346 


0343 


0345 


TESTO 


032F 


02BC 


034D 


WAITA 


0322 


032E 




WAITB 


034E 






HAITD 


02C8 


02CB 




ifJAITO 


0239 


0323 


034F 


WAITl 


0278 


024E 


0272 


WAIT2 


0295 


029A 


0303 030B 


WA1T3 


02F6 






WAIT4 


02FE 






WAIT5 


02C4 






WAIT6 


0313 


308 




WAIT? 


02EA 






WAITS 


02D3 






WAIT9 


02DE 






XFFFF 


0497 


021B 


0221 


X0800 


049A 


02DF 


02 EB 02 F7 


X0801 


0499 






X7F7F 


049 8 


0227 
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PAKAGRAPH 



PAGE 



1. PURPOSE. ....................... 1 

2. PREREQUISITES. ...............> • 1 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. USE PROCEDURE. ...... .......... 1 

3.1 PROGRAM LOADING 

3.2 OPERATING PROCEDURE 

3.3 PROGRAM HALTS 

4. PRINTOUTS < NONE I 

5. COMMENTS ........... ...... 2 

6. APPENDIX (NONE) 



1. PURPOSE 



THE CORE ADJUSTMENT PROGRAM LOADS CORE WITH THE BEST CASE AND 
COMPLEMENT BEST CASE PATTERNS SPECIFIED IN THE ENGINEERING 
SPECIFICATIONS FOR SJ2 AND SJ* STORAGE. THIS PATTERN ALLOWS 
ADJUSTMENT OF THE CORE VOLTAGES AS SPECIFIED IN THE 1130 MAINTENANCE 
MANUAL. 



2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE CORE ADJUSTMENT PROGRAM IS LOADED BY THE 1130 RELOCATING 
LOADER. 



2.2 EQUIPMENT PREREQUISITES 

A. 1131 CPU 

B. CARD OR PAPER TAPE READER 



USE PROCEDURE 

3.1 PROGRAM LOADING 

3.1.1 TO LOAD FROM CARDS 



A. PLACE RELOCATING LOADER AND PROGRAM DECK IN READER. 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET KEY. 

D. PRESS THE 1131 PROGRAM LOAD KEY. 

E. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW 
LOCATION 0160, REFER TO RELOCATING LOADER DOCUMENTATION. 
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3.1,2 TO LOAD FROM PAPER TAPE 

A. PLACE THE PAPER TAPE RELOCATING LOADER IN THE READER, 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET KEY. 

0. PRESS THE 1131 PROGRAM LOAD KEY, 

E. THE LOADER SHOULD HALT AT WAIT 30F6 (B RE6I. 

F. PLACE THE CORE ADJUST PROGRAM TAPE IN THE READER. 

G. MAKE READER READY. 

H. MANUALLY SET THE INSTRUCTION ADDRESS REG TO /0078, 

1. SET MODE SWT TO RUN AND PRESS PROGRAM START. 

J. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW 

LOCATION 0160, REFER TO RELOCATIING LOADER DOCUMENTAlON. 



3.2 OPERATING PROCEDURE (SEE SECTION 5. FOR FURTHER DETAILS) 

A. AFTER LOADING THE PROGRAM WILL STOP AT WAIT 3001. SET 
SWITCHES 14 AND 15 AS OESIREO. 

SWT 15. .ON.. LOAD CORE WITH COMPLEMENT BEST CASE PATTERN. 
..OFF. LOAD CORE WITH BEST CASE PATTERN. 

SWT 14.. ON. .EXECUTE HIGH CORE ADJUST SECTION OF PROGRAM. 
..OFF. EXECUTE LOW CORE ADJUST SECTION OF PROGRAM. 

fl. PRESS THE 1131 PROGRAM START BuYTON. 

C. THE PROGRAM WILL RUN BRIEFLY LOADING CORE WITH THE PATTERN 

SELECTED BY SWT 15 AND STOP AT THE END OF THE PROGRAM AT WAIT 
(3002 OR 3003). 

0. REFER TO 1130 MAINTENANCE MANUAL FOR CORE ADJUSTMENT PROCEDURES. 



E. TO CHANGE THE CORE ADJUST PATTERN OR RERUN THE PROGRAM 

1. SET SWT 15 AS DESIRED 

2. PRESS THE 1131 RESET KEY. 

3. PRESS THE 1131 PROGRAM START KEY. 

F. IMt PROGftAM KUST BE RELOADED TO CHANGE THE SWT 14 SELECTION. 



3.3 PROGRAM HALTS 



.HALT NO. 


DESCRIPTION 




RESTART 


.(B REG). 






ACTION 


. . 


—————— — — — — — — ' — — — — , 


»~""~~ 




. 30F6 . 


, LOADER WAIT. SHOULD OCCUR ON PAPER , 


A. 


PLACE CORE ADJUST PROGRAM 




, TAPE I PL ONLY. 




IN READER. 






. B. 


MANUALLY SET I REG TO 0078 






C. 


SET MODE Swr TO RUN. 






. 0. 


PRESS PROGRAM START. 


. 3001 . 


, WAIT FOR SWITCH SETTINGS. 


. A. 


SET SWITCH 14... 

ON.. TO ADJUST HIGH CORE. 

OFF. TO ADJUST LOW CORE. 

SET SWITCH 15.. 

ON.. FOR COMPLEMENT BEST 

CASE PATTERN. 

OFF. .FOR BEST CASE PATTERN 


. 3002 


. END LOW CORE ADJUST. 


. TO 


RESTART PROGRAM... 


. 3003 


. END HIGH CORE ADJUST. 




A. SET SW 15 AS DESIRED 

B. PRESS RESET 

C. PRESS PROGRAM START 
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PRINTOUTS (NONE) 



5. COMMENTS 



THE 1130 CORE ADJUST PROGRAM IS MADE UP OF TWO IDENTICAL SECTIONS. 
THE ONLY DIFFERENCE BETWEEN THESE SECTIONS IS THE CORE LOCATIONS 
INTO MHICH THEY ARE LOADED. ONLY ONE OF THESE SECTIONS IS EXECUTED 
FOR EACH TIME THE PROGRAM IS LOADED SINCE EXECUTION OF EITHER 
SECTION WILL DESTROY THE OTHER. 

THE LOW CORE ADJUST SECTION IS SELECTED BY SWT 14 BEING OFF. 
THIS SECTION IS LOADED INTO THE LAST 2K OF CORE AND IS USED 
TO ADJUST THE FIRST 8K OF CORE. (THIS SECTION IS ASSEMBLED FOR A 
32K MACHINE. IGNORE HIGH ORDER BITS WHEN REFERENCING THE LISTING 
AND DOCUMENTATION.! 

THE HIGH CORE ADJUST SECTION IS SELECTED BY SWT 14 BEING ON. 

THIS SECTION IS LOADED INTO THE FIRST 2K OF CORE AND IS USED TO 

ADJUST CORE ABOVE 8K. (THIS SECTION IS NOT USED FOR MACHINES' 
HAVING 8K OR LESS CORE. I 

THE CORE ADJUST PROGRAM SHOULD NOT BE EXECUTING WHILE CORE IS 
BEING ADJUSTED. REFER TO 1130 MAINTENANCE MANUAL FOR CORE 
ADJUSTMENT PROCEDURE. 
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***** PROGRAM ID 03A6 

********************************************* 

* 

«**«««««»«««*«**«•«»« PROGRAM HAITS*******'*'**********'^******'************ 

• * 

* B REG • COMMENTS 

*********************************************************************** 
* 

SET CONSOLE ENTRY SWITCHES 



3001 



3002 



3003 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
-*- 
* 
* 
* 
* 
* 
* 
* 
* 



SMT 15 — ON — LOAD CORE WITH COMPLEMENT 
BEST CASE PATTERN. 
-OFF — LOAD CORE WITH BEST CASE 
PATTERN. 



SMT 



14 — ON— EXECUTE HIGH CORE ADJUST ROUTINE. 
-OFF— EXECUTE LOW CORE ADJUST ROUTINE. 



PRESS START TO CONTINUE. 



END OF LOW CORE ADJUST ROUTINE. 
END OF HIGH CORE ADJUST ROUTINE. 



ADJUST CORE WHILE CYCLING IN AUTOMATIC 
DISPLAY NODE. REFER TO 1130 MAINTENANCE 
MANUAL FOR ADJUSTMENT PROCEDURE. 

t,^i,0^^*^-**^1s9m***********************************************»********* 

* 



0000 
OlbE 
OlbF 
0160 



03 A6 
7FFF 



ABS 

ORG 

DC 

DC 

ORG 



PID 



/015E 
/03A6 
/7FFF 
/7800 

*m**************9********************************** 

* 

* PROGRAM INITIALIZATION 

* 

*************************************************** 

* 

SET UP RESTART TO 
HIGH CORE ADJUST 

WAIT FOR SWITCH SETTING 

READ SWITCHES 



BR TO HIGH CORE ADJUST 

IF SWT 14 ON. 
SET UP RESTART TO 

LOW CORE ADJUST 



***********m**^^m********************************** 
* 

* LOW CORE ADJUST ROUTINE 

*9***********************************i ************* 

* 

* DETERMINE SIZE OF CORE 



7800 CCOO 


01B4 


BEGIN 


LOD 


L 


LINKH 


7802 DCOO 


0004 




STO 


L 


4 


7804 3001 






WAIT 




1 


7805 085C 






XIO 




RDSWS 


7806 C06A 






LD 




SWS 


7807 1801 






SRA 




I 


7808 4C04 


0160 


A 


BSC 


L 


STRTH.E 


780A C855 






LDD 




LINK 


780B DCOO 


0004 




STD 


L 


4 





7800 6104 


START LOX 


1 


4 






7eoE 1010 


SLA 




16 






78UF D400 0000 


STO 


L 









7811 D400 6000 


STO 


L 


/6000 


CLEAR LOC 




7813 C051 


LD 




K0800 


CONSTANT 




7814 1001 


L031 SLA 




1 






7815 0056 


STO 




SIZE 






7816 D480 786C 


STO 


I 


SIZE 






7818 7400 0000 


MDX 


L 


0,0 




DATE 


02JAN66 15N0V66 


15FEB68 








EC NO. 


415490 419643 


420403 









6000 OR 4000 



3 A6 00020 

3A600030 

3A6 00040 

3A600050 

3 A6 00060 

3A600070 

3 A6 00080 

3A600090 

3A600I00 

3A600110 

3A6 00120 

3A600130 

3A6 00140 

3A6001S0 

3A6 00160 

3A600170 

3A600180 

3A600190 

3A600200 

3A600210 

3 A6 00220 

3A600230 

3 A6 00240 

3A600250 

3A600260 

3*600270 

3*600280 

3A600290 

3A600300 

3A600310 

3A6 00320 

3*600330 

3*600340 

3*600150 

3*600360 

3*600370 

3*600380 

3*600390 

3*600400. 

3*600410 

3*600420 

3*600430 

3*600440 

3*600450 

3*600460 

3*600470 

3 A6 00480 

3A600490 

3A600500 

3A600510 

3A6 00520 

3A600530 

3A600540 

3A600550 

3A600560 

3A600570 

3A6 00580 

3A600590 

3A600600 

3A600610 

3A600620 

3A600630 

3A600640 

3A600650 

3A6 00660 

3A600670 

3A600680 

3A600690 



PKOG ID 
PAGE 



03A6-1 
1 



DATE 
EC NO. 



781A 





7002 






MDX 




LD32 




3A6 00700 




781B 





71FF 






MDX 


1 


-1 




3A600710 




781C 





70F7 






MDX 




LD31 




3A600720 




781D 





71FF 




LD32 


MDX 


1 


-1 


WILL SKIP IF 24 OR 32K 


3A600730 




781E 





7004 






MDX 




*+4 


4, 8, OR 16K FOUND 


3A6 00740 




78 IF 





7400 


6000 




MDX 


L 


/6000,0 


WILL SKIP IF 32K 


3A600750 




7821 





C042 






LD 




K6000 


FETCH 24K SIZE CONSTANT 


3A600760 




7822 





0049 






STO 




SIZE 


SET PROPER SIZE 


3A600770 




7823 





C046 






LD 




H6004 




3A600780 




7824 





0400 


0000 


* 


STO 


L 







3A600790 
3A600800 












* 






ADJUST CORE SIZE AND 


3A600810 












* 






* CONSTANTS 


3A600820 












* 










3A600830 




7826 





74FF 


786C 




MDX 


L 


SIZE, -I 




3A600640 




7828 





1000 






NOP 








3AbU0850 




7829 





C030 






LP 




LLIM2 


ADJUST CONSTANT 


3A600860 




782A 





E041 






AND 




SIZE 




3A600870 




7828 





D03B 






STO 




LLIM2 




3A600880 




782C 





C042 






LD 




ULIMl 




3A600890 




7820 





E03E 






AND 




SIZE 




3A6 00900 




782E 





0040 




* 


STO 




ULIMl 

FIND 


LOOP CONTROLS 


3A600910 
3A600920 




782F 





C03F 






LD 




ULIMl 




3A600930 




7830 





9035 






S 




LLIMl 




3A6 00940 




7831 





D036 






STO 




LOWRL 




3A600950 




7832 





C039 






LD 




SIZE 


• 


3A6 00960 




7833 





9033 






S 




LLIM2 




3A600970 




7834 





9034 






S 




ONE 




3A6009UO 




7835 





003* 




* 


STO 




UPERL 


UPPER LIMIT CONTROL 


3A60099O 
3*601000 




^7836 





082B 






XIO 




RDSWS 


READ SWITCHES 


3A601010 




7837 





C039 






LD 




SWS 




3A60I020 




7838 





4C04 


783D 


* 
* 
• 


BSC 


L 


PAT02,E 

SET 


BR IF SW IS ON 
UP BCP OR COMPL. BCP 


3A601030 
3A601040 
3A601050 
3A601060 




783A 





6100 




PATOl 


LDX 


1 







3A601070 




783B 





62FF 






LOX 


2 


-1 




3A6O1O0O 




783C 





7002 






MDX 




PAT02+2 




3A6U1090 




783D 





61FF 




PAT02 


LDX 


1 


-1 




3A601100 




783E 





6200 






LDX 


2 







3A601110 




783 F 





C026 






LD 




LLINl 


SET UP TO START AT 


3A601120 




7840 





00 2 A 






STO 




PLOC 


* 1ST LOWER LIMIf 


3A601130 




7841 





6780 


7868 




LDX 


13 


LOWRL 


SET UP LOOP CONTROL 


3A601140 




7843 





4008 






BSI 




BCP 


SET CORES 


3A601150 




7844 





C022 






LD 




LLIM2 


SET UP TO START AT 


3A601160 




7845 





D025 






STO 




PLOC 


* 2ND LOWER LIMIT 


3A601170 




7846 





6780 


7870 




LDX 


13 


UPERL 


SET UP LOOP CONTROL 


3A601180 




7848 





4003 




* 


BSI 




BCP 


SET CORES 


3A601190 
3A601200 




7849 





3002 




WAIT2 


WAIT 




2 


END OF PROGRAM 


3A601210 




784A 





4C00 


780D 


* 
* 

* 


BSC 


L 


START 

BCP 


AND COMPL. BCP SU8RT 


3A601220 
3A601230 
3A601240 
3A601250 
3*601260 




784C 





0000 




BCP 


DC 









3*601270 




7840 





COID 






LD 




PLOC 


EXCUSIVE OR BITS 7 


3*601280 




784E 





1806 






SRA 




6 


* AND 9 


3*601290 




784 F 





OOID 






STO 




TEMP 




3*601300 




7850 





1802 






SRA 




2 




3A601310 




7851 





F016 






EOR 




TEMP 




3A601320 




7852 





4C04 


7857 




BSC 


L 


ODD.E 




3A601330 




7854 





6D80 


7868 




STX 


11 


PLOC 




3A601340 




7856 





7002 






HDX 




0D0&2 




3A601350 




78b7 





6E80 


786B 


ODD 


STX 


12 


PLOC 




3A601360 




7859 





7401 


7868 




MDX 


L 


PLOC, I 


INCREMENT ADDRESS 


3A601370 




02JAN66 15NOV66 


15FEB6e 








PROG ID 


03A6-1 


415* 


.9C 


) 4 
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42041 


03 
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PAGE 



2191244 
2A 



7B!>B 1000 
78bC 73FF 
78i0 70EF 
785E 4C80 784C 



7860 
78 60 
7862 
7863 
78 64 
7865 
7866 
7867 
7868 
78 69 
78bA 
7866 
78 6C 
7B6D 
786E 
78bF 
7870 
7871 
7872 
7873 



7874 



0000 

4C00 780D 

7871 

3AO0 

6000 

0600 

0006 

7873 

0000 

0001 

0000 

0000 

0000 

0000 

0002 

780D 

0000 

0000 

6004 

0000 



0160 
0161 
0162 
0164 
0166 
0167 
0168 
0169 
016B 
016D 
016E 
016F 
0170 
0171 
0172 
0174 
0175 
0176 
0177 



0179 
01 7B 
017C 
0170 
017E 
017F 
0180 
0181 



6104 

1010 

D400 0000 

0400 6000 

C052 

1001 

0057 

0480 OICO 

7400 0000 

7002 

71FF 

70F7 

71FF 

7004 

7400 6000 

C043 

004A 

C04F 

0400 0000 



74FF OICO 

1000 

C03E 

E042 

D03C 

C043 

E03F 

0041 



LINK 
ROSWS 

K6000 

K0800 

LLIMI 

LLIM2 

LOHRL 

ONE 

PATNO 

PLOC 

SIZE 

TEMP 

TWO 

ULIHl 

UPERL 

SWS 

H6004 

FIN 

* 

* 



SLA 
MDX 
MDX 
BSC 

ess 

BSC 

OC 

DC 

OC 

DC 

DC 

DC 

OC 

DC 

DC 

DC 

DC 

DC 

OC 

OC 

DC 

OC 

DC 

DC 




3 -1 
BCPbl 
I BCP 



ORG 





START 

SMS 

/3A00 

/6000 

/0800 

/0006 

FIN 



1 









2 

START 





/6004 





/0160 



CK FOR END OF LOOP 

REPEAT 

EXIT 



RESTART LINKAGE 

READ SWITCHES 
24K CONSTANT 
CONSTANT 

2ND LOWER LIMIT 
LOWER LOOP CONTROL 
CONSTANT 1 
PATTERN NUMBER 
PRESENT LOC 
CONTAINS CORE SIZE 

CONSTANT 2 

1ST UPPER LIMIT 

UPPER LOOP CONTROL 



LAST LOC OF PROG 



»»««••«♦**»♦***••*»***♦«*»**•♦♦*♦•****»****•******* 



HIGH CORE ADJUST ROUTINE 



* 
« 

* DETERMINE SIZE OF CORE 



STRTH LDX 
SLA 
STO 
STO 
LO 

L031H SLA 
STO 
STO 
MDX 
NOX 
MDX 
MDX 

L032H MDX 
MDX 
MDX 
LD 
STO 
LO 
STO 



♦ 

16 



/6000 

K080H 

1 

SIZEH 

SIZEH 

0.0 

LD32H 

-1 

LD31H 

-1 

♦ ♦4 

/6000t0 

K600H 

SIZEH 

H604H 





CLEAR LOC 
CONSTANT 



6000 OR 4000 



WILL SKIP IF 24 OR 32K 
4, 8, OR 16K FOUND 
WILL SKIP IF 32K 
FETCH 24K SIZE CONSTANT 
SET PROPER SIZE 



ADJUST CORE SIZE 
* CONSTANTS 



AND 



0182 C040 



DATE 
EC NO. 



02 J AN 66 
415490 



15N0V66 
419643 



MDX 

NOP 

LO 

AND 

STO 

LD 

AND 

STO 

LD 



15FEB68 
420403 



L SIZEH, -1 

LIM2H 
SIZEH 
LIM2H 
ULMIH 
SIZEH 
ULMIH 



ADJUST CONSTANT 



FIND LOOP CONTROLS 



ULMIH 



3A601380 

3A601390 

3A601400 

3A601410 

3A601420 

3A601430 

3A601440 

3A601450 

3A601460 

3A601470 

3A601480 

3A601490 

3A601500 

3A601510 

3A601520 

3A601530 

3A601540 

3A601550 

3A601560 

3A601570 

3A6015B0 

3A601590 

3A601600 

3A601610 

3A601620 

3A601630 

3A601640 

3A601650 

3A6016'60 

3A601670 

3 A6 01680 

3A601690 

3A601700 

3A601710 

3A601720 

3A601730 

3A601740 

3A601750 

3A601760 

3A601770 

3A6017B0 

3A601790 

3A601800 

3A601810 

3A601820 

3A601830 

3A601840 

3A601850 

3A601860 

3A601870 

3A601880 

3A601890 

3A601900 

3A601910 

3A601920 

3A601930 

3A601940 

3A601950 

3A601960 

3A601970 

3A601980 

3A601990 

3A602000 

3A602010 

3A602020 

3A602030 

3A602040 

3A602050 



PROG ID 
PAGE 



03A6-1 
2 





0183 9036 




S 




LIMIH 




3A602060 






01B4 D037 




STO 




LWRLH 




3A602070 






0185 C03A 


* 


LD 




SIZEH 




3A6020U0 






01U6 9034 




S 




L1M2H 




3A602090 






0187 9035 




S 




ONEH 




3A602100 






0188 D03B 


• 


STO 




UPRLH 


UPPER LIMIT CONTROL 


3A602110 
3A602120 






0189 082C 




XIO 




RDSWH 


READ SWITCHES 


3A602130 






018A C03A 




LO 




SWSH 




3A602140 






OieS 4C04 0190 


• 
• 
* 


BSC 


L 


PAT2H,E 

SET 


BR IF SW 15 ON 
UP BCP OR COMPL. BCP 


3A602150 
3A602160 
3A602170 
3A602180 






0180 6100 


PATIH 


LDX 


1 







3A602190 






018E 62FF 




LOX 


2 


-1 




3A602200 






018F 7002 




MDX 




PAT2H+2 




3A602210 






0190 61FF 


PAT2H 


LDX 


1 


-1 




3A602220 






0191 6200 




LDX 


2 







3A602230 






0192 C027 




LD 




LINIH 




3A602240 






0193 D02B 




STO 




PLOCH 


♦ 1ST LOWER LIMIT 


3A602250 






0194 6780 OIBC 




LDX 


13 


LWRLH 


SET UP LOOP CONTROL 


3A602260 






0196 4008 




BSI 




BCPH 


SET CORES 


3A602270 






0197 C023 




LD 




LIM2H 


SET UP TO START AT 


3A^02280 






0198 0026 




STO 




PLOCH 


• 2ND LOWER LIMIT 


3A602290 






0199 6780 01C4 




LOX 


13 


UPRLH 


SET UP LOOP CONTROL 


3A602300 






019B 4003 


* 


BSI 




BCPH 


SET CORES 


3A602310 
3A602320 






019C 3003 


WAIT3 


WAIT 




3 


END OF PROGRAM 


3A6O2330 






0190 4C00 0160 


« 
• 


BSC 


L 


STRTH 




3A602340 
3A602350 
3A602360 








• 




. 


BCP 


AND COMPL. BCP SUBRT 


3A602370 








.* 




"* 






3A602380 






019F 0000 


BCPH 


DC 









3A602390 






OlAO COIE 




LD 




PLOCH 


EXCLUSIVE OR BITS 7 


3A602400 






OlAl 1806 




SRA 




6 


* AND 9 


3A602410 






01A2 DOIE 
01A3 1802 
01A4 FOIC 




STO 
SRA 
EOR 




TEMPH 

2 

TEMPH 




3A602420 
3A602430 
3A602440 






01A5 a 4C04 OlAA 




BSC 


L 


ODOHtE 




3A6024S0 






01A7 6080 OIBF 




STX 


U 


PLOCH 




3A602460 






01A9 7002 




MDX 




00DH-»2 




3A602470 






OlAA 6E80 OIBF 


ODDH 


STX 


12 


PLOCH 




3A602480 






OlAC 7401 OIBF 
OlAE 1000 




MDX 
SLA 


L 


PLOCH, 1 



INCREMENT ADDRESS 


3A602490 
3A602S00 






OlAF 73FF 




MDX 


3 


1 -1 


CK FOR END OF LOOP 


3A602510 






OIBO 70EF 




MDX 




BCPH+1 


REPEAT 


3A602520 






OlBl 4C80 019F 





BSC 


I 


BCPH 


EXIT 


3A602530 
3A602540 






01B4 0000 
01B4 4C00 0160 


LINKH 


BSS 

BSC 


E 

L 



STRTH 


RESTART LINKAGE 


3A602550 
3A602560 
3A602570 






01b6 01C5 


RDSWH 


OC 




SWSH 








01B7 3A00 




OC 




/3A00 


READ SWITCHES 


3A6025B0 






01 B8 6000 


K600H 


DC 




/6000 


24K CONSTANT 


3A602590 






01B9 0800 


K080H 


DC 




/0800 


CONSTANT 


3A602600 
3A602610 






OlbA 0006. 


LIMIH 


DC 




/0006 








OIBB 01C7 


LIM2H 


OC 




FINH 


2ND LOWER LIMIT 


3A602620 






OIBC 0000 
OIBO 0001 


LWRLH 
ONEH 


OC 
DC 





1 


LOWER LOOP CONTROL 
CONSTANT 1 


3A602630 
3A602640 






OIBE 0000 


PATNH 


DC 







PATTERN NUMBER 


3A602650 






OIBF 0000 


PLOCH 


DC 







PRESENT LOC 


3 A6 02660 






OICO 0000 
OlCl 0000 


SIZEH 
TEMPH 


DC 
DC 








CONTAINS CORE SIZE 


3A602670 
3A602680 






01C2 0002 
01C3 0160 


TWOH 
ULMIH 


OC 
1 DC 




2 
STRTH 


CONSTANT 2 

1ST UPPER LIMIT 


3A602690 
3A602700 






\f A ^rf ^ ^r ^* ^ ^^ ^^ 

01C4 0000 
01C5 0000 
01C6 6004 


UPRLH 

SWSH 

H604H 


1 OC 

DC 

1 OC 






/6004 


UPPER LOOP CONTROL 


3A602710 
3A602720 
3A602730 




DATE 


02JAN66 15N0V66 


i5FEB68 








PROG 10 
PAGE 


03A6-1 
2A 


EC NO. 


415490 419643 


420403 
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01C7 0000 FINN DC 
OICB 7600 END BEGIN 

NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



LAST LOC OF PROG 



3A602740 
3A602750 



C R 

NAME 

BCP 

BCPH 

BEGIN 

FIN 

FINH 

H6004 

H604H 

KOUOH 

:.0800 

K600H 

K6000 

LD31 

L031H 

L032 

LD32H 

LIMIH 

LIM2H 

LINK 

LINKH 

LLIMl 

LLIM2 

LOWRL 

LURLH 

ODD 

OODH 

ONE 

ONEH 

PATNH 

PATNO 

PATOl 

PAT02 

PATIH 

PAT2H 

PLOC 

PLOCH 

RDSHH 

ROSWS 

SIZE 

SI2EH 

START 

STRTH 

SHS 

SMSH 

TEMP 

TEMPH 

TMO 

TWOH 

ULIMl 

ULMIH 

UPERL 

UPRLH 

WA1T2 

MAIT3 



S S 
VALUE 
784C 
019F 
7800 
7873 
01C7 
7872 
01C6 
0169 
7865 
01B8 
7864 
7814 
0167 
7810 
0170 
OIBA 
016B 
7860 
01B4 
7866 
.'867 
7b68 
OIBC 
7857 
OlAA 
7«69 
OIBO 
018E 
786A 
783A 
7830 
0180 
0190 
786B 
OIBF 
01B6 
7862 
786C 
OICO 
7800 
0160 
7871 
01C5 
786D 
OlCl 
786E 
01C2 
786F 
01C3 
7870 
01C4 
7849 
019C 



REFERENCE 
REFERENCES 
7843t7848,7850,785E 
0196«019B,01BOt01Sl 
01C8 
7867 
0188 
7823 
0176 
0166 
7813 
0174 
7821 
781C 
016F 
781A 
0160 

0183*0192 

017C,017Et 0186, 0197 
780A 
7800 

7830, 783F 

7829,7826,7833,7844 
7831,7841 
0184,0194 
7852,7856 
01A5,01A9 
7834 
0187 



7838, 783C 

0188,018F 

7840,7845,7840,7854,7857,7859 

0193, 0198, 01A0,01A7, OlAA, OlAC 

0189 

7805,7836 

7815, 78 16, 7822, 7826, 782A, 7820, 7832 

0168,0169,0175,0179,0170,0180,0185 

784A,7860,786F 

0190, 01B4,01C3, 7808 

7806,7837,7862 

018A,01B6 

784F,7851 

01A2,01A4 



782C,782E,782F 
017F, 0181, 0182 
7835,7846 
0188,0199 



END OF ASSEMBLY 
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3. OPERATING PROCEDURES 



PAGE 
1 
1 

lA 



1. PURPOSE 

THE 1130 INTERRUPT TEST PROGRAM IS DESIGNED TO ISOLATE INTERRUPT FAI1URF<; 
WH CH COULD PREVENT THE LOADING OF OTHER PROGRAMS WITH THE BASK D?iGNolnC 
LC^ADER IN THE -LOAD AND GO MODE.. THE PROGRAM EXECUTES 2 BASIC TEsft Sr 1n 
AUTOMAT C LEVEL RESET LOOP FOR SCOPING THE CAUSE OF A LEVEL NOT Itlll RBsTj 
Imdt Llh^^'* °^ *'-'- DEVICES AND CHECKS THE BASIC OPERATION OF THE INTER- 
RUPT FORCED BRANCH, THE PROPER EXECUTION OF A LEVEL I INTERRUPT AND 
ISOLATES INTERRUPT LEVELS WHICH ARE NOT BEING RESET. '''^"'''^^^' "'"^ 

TEST 2 IS RUN ON THE I4A2 READER AND CHECKS THE PROPER EXECUTION np A 
LEVEL A INTERRUPT IN CONJUNCTION WITH A LEVEL INTERRUPT THE ARRIV*. np 
AN END OP EITHER TOO SOON OR TOO LATE IN CONJUNCTION WITH THE rmuMN 
INTERRUPT, AND PROPER EXECUTION OF A LEVEL INTERRUPT. 

BOTH TESTS PROVIDE ERROR WAITS, ERROR LOOPS, AND SCOPE LOOP RnilTTUF^ Tn 
HELP DIAGNOSE THE FAILURE AND AID IN A QUICK REPAIR. ROUTINES TO 

THE AUTOMATIC LEVEL RESET LOOP MODE IS FOR SCOPING THE RFSFT PBfiRi cm amh a 
WAIT INDICATE THE RESETTING OF THE INTERRUPT, IF IT OCcSrs! 

2. PREREQUISITES 



2.1 



2.2 



PROGRAM PREREQUISITES 

1130 BASIC DIAGNOSTIC LOADER. 

EQUIPMENT PREREQUISITES 

CARD READER OR PAPER TAPE READER. 



3.1 



3.2 



3.3 



PROGRAM LOADING 

^' ."^HAnco^" INTERRUPT TEST IS LOADED BY THE 1130 BASIC DIAGNOSTIC 
LOADER . 

2. SET THE C. E. INTERRUPT DELAY SWITCH TO THE 'ON' POSITION. 

3. SEE BASIC DIAGNOSTIC LOADER DOCUMENTATION FOR LOADING PROCEDURE. 
PROGRAM OPERATION 

1. AFTER THE PROGRAM IS LOADED, A WAIT OF WILL OCCUR. AT THIS TIME, 

innp'AP.:''ln'^! cl ^"'^^ ^^^ PROGRAM WAS LOADED, AND THE PROGRAM 
MODE ARE TO BE SELECTED VIA THE BIT SWITCHES. SEE TABLE A, WAIT 
X • 

Ic^tS^x^°'?.'^"^ DEVICE WHICH LOADED THE PROGRAM MUST BE SELECTED, 
IS THAT WITH THE C.E. INTERRUPT DELAY SWITCH IN THE ON POSITION, 
THE BASIC LOADER GENERATES A LEVEL 4 INTERRUPT WHICH CAN NOT BE 
SERVICED. WHEN THE C.E. INTERRUPT DELAY SWITCH IS TURNED OFF? 
THE LEVEL 4 INTERRUPT MUST BE SERVICEC BEFORE ANY OTHER INTEKRUPT 
CAN BE EXECUTED. 



2. 



IF THE PROGRAM DETECTS NO ERRORS, AND THE AUTOMATIC LOOP RESET 
MODE IS NOT SELECTED, THE PROGRAM WILL HALT AT WAIT 4 IF A 
RERUN OF THE PROGRAM IS DESIRED, DEPRESS START. 



^* ok'-,°I"^'' "^'''"^ ^"^"^ '-°°''^ *'*E EXPLAINED IN TABLES A, B, AND C 
Or 3»3« 

4. TO GO INTO A SCOPE LOOP AFTER A FAILURE HAS BEEN DETECTED. 

DEPRESS START. THE SCOPE LOOP IS SET UP FOR A 2 FEED/CYCLE PER 
SECOND RATE, AND A WAIT AFTER 100 FEED CYCLES HAVE BEEN EXECUTH. 
THE C.E. HAS AN OPTION TO CHANGE THESE VALVES. (SEE 3.4) 

WAITS AND LOOPS 

1. TABLE A - TEST 1 WAITS AND SCOPE LOOPS - 

WAIT 0— OP CODE 0000. NO TRANSFER TOOK PLACE FROM I/O BUSS 
TO B REG. LOGIC KM201. 

WAIT F— 'INITIAL' DEVICE SELECTION AND PROGRAM MODE SELECTION. 

A. MAKE PROGRAM READ IN DEVICE READY. 



B. 



SELECT PROGRAM READ IN DEVICE, USING BIT SWITCHES 
0, 1, OR 2 AS FOLLOWS, 



1. BIT 0-ON AND BITS 1 AND 2 OFF, 

2. BIT 1-ON AND BITS AND 2 OFF. 

3. BIT 2-ON AND BITS AND 1 OFF, 



1442 READER 
P.T. READER 
2501 READER 



DATE 


01MAY66 


15APR67 


15JUN67 


EC NO. 


415490B 


419603 


420317 



PROG ID 
PAGE 



03A8-* 
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15JUN67 
420317 
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C. 



IF AUTOMATIC RESET MODE IS DESIRED, SELECT 
LEVEL INVOLVED, USING BIT SWITCHES A THROUGH 
7 AS FOLLOWS. 

1. LEVEL 0-BIT A 

2. LEVEL 1-BIT 7 

3. LEVEL 2-BIT 6 

4. LEVEL 3-BITS 6 AND 7 

5. LEVEL A-BIT 5 

6. LEVEL 5-BITS 5 AND 7 



7. NO BITS SELECTED 



LEVEL AUTOMATIC 



RESET MODE WAS NOT SELECTED. 
D. DEPRESS START 
WAIT 1 — DEVICE SELECTION 

A. HAKE DESIRED DEVICE READY. 



B. 



SELECT DESIRED DEVICE, USING BIT SWITCHES 0, 1, 
AS FOLLOWS. TURN OFF BIT SW B, IF ON. 



OR 2 



1. BIT 0-ON AND BITS 1 AND 2 OFF.. 1AA2 READER 

2. BIT 1-ON AND BITS AND 2 OFF.. P.T. READER 

3. BIT 2-ON AND BITS AND 1 OFF.. 2501 READER 

C. DEPRESS START 

WAIT 2 — DESIRED NUMBER OF FEED CYCLES DURING SCOPE LOOP, MAKE 

SURE THERE ARE ENOUGH CARDS OR TAPE TO MAKE ANOTHER PASS. 
PUSH START TO CONTINUE SCOPE LOOP. 



WAIT 3 — DEVICE WENT NOT READY. 
START TO CONTINUE. 



LOAD CARDS OR TAPE AND PUSH 



WAIT A- 



-DEVICE TESTED, RAN SUCCESSFULLY. 
START. 



TO RERUN TEST, DEPRESS 



WAIT 5— THE 1AA2 IS THE DEVICE SELECTED ON WHICH THE TEST WILL 
BE RUN. IF SOME OTHER DEVICE IS DESIRED, AND THIS IS 
NOT THE INITIAL WAIT 5, MAKE NEW SELECTION, USING 
CONSOLE ENTRY SWITCHES. (SEE WAIT 1) TURN INTERRUPT 
DELAY SW. OFF IF IT IS ON, AND DEPRESS START IF PROG. 
DOES NOT START OPERATION BECAUSE OF A PENDING INTERRUPT. 

WAIT 6 — PAPER TAPE IS THE DEVICE SELECTED ON WHICH THE TEST WILL 
BE RUN. IF SOME OTHER DEVICE IS DESIRED, AND THIS IS 
NOT THE INITIAL WAIT 6, MAKE NEW SELECTION, USING 
CONSOLE ENTRY SWITCHES. (SEE WAIT 1) TURN INTERRUPT 
DELAY SW OFF IF IT IS ON, AND DEPRESS START IF PROG DOES 
NOT START OPERATING BECAUSE OF A PENDING INTERRUPT. 

WAIT 7 — THE 2501 IS THE DEVICE SELECTED ON WHICH THE TEST WILL BE 
RUN. IF SOME OTHER DEVICE IS DESIRED, AND THIS IS NOT 
THE INITIAL WAIT 7, MAKE NEW SELECTION, USING CONSOLE 
EWTRY SWITCHES. (SEE WAIT 1) TURN INTERRUPT DELAY SW OFF 
IF IT IS ON, AND DEPRESS START IF PROG DOES NOT START 
OPERATING BECAUSE OF A PENDING INTERRUPT. 

WAIT 8 — NO DEVICE WAS SELECTED. MAKE SELECTION USING CONSOLE 
ENTRY SWITCHES. (SEE WAIT 1) DEPRESS START. 

WAIT A~1AA2 WAS DEVICE SELECTED AND IT WAS FOUND NOT READY. 
MAKE 1AA2 READY, AND DEPRESS START. 



DATE 
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PROG ID 
PAGE 



03A8-* 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 INTERRUPT TEST 



PART NO. 
PAGE 



2191270 
2A 



WAIT B — PAPER TAPE READER WAS DEVICE SELECTED AND FOUND NOT 
READY. MAKE P.T. READER READY, AND DEPRESS START. 

WAIT C — 2501 WAS DEVICE SELECTED AND IT WAS FOUND NOT READY. 
MAKE 2501 READY, AND DEPRESS START. 

WAIT 11-NO INTERRUPTS GENERATED. PROGRAM IS CHECKING ABILITY TO 
SET RUN TRIGGER WITH INTERRUPT OCCURRING DURING A WAIT 
OP. TO FURTHER CHECK RUN TRIGGER WITH PROGRAM, PUSH 
START. 

WAIT 12-NO INTERRUPT GENERATED. RUN TRIGGER HAS BEEN ELIMINATbD 
AS CAUSE OF FAILURE. TO GO INTO SCOPE LOOP, PUSH START. 
LOGIC KM321. 

WAIT 13-DROPPED ADDR BIT 13 WHEN GATING INTERRUPT ADDRESS FROM 

I/O BUSS TO B REG DURING BSI 12 CYCLE. TO GO INTO SCOPE 
LOOP, PUSH START. LOGIC KM201. 

WAIT lA-A LEVEL 1 INTERRUPT ADDRESS WAS GENERATED. TO GO INTO 
SCOPE LOOP, PUSH START. LOGIC KM201. 

WAIT 15-A LEVEL 2 INTERRUPT ADDRESS WAS GENERATED. TO GO INTO 
SCOPE LOOP, PUSH START. LOGIC KM201. 

WAIT 16-A LEVEL 3 INTERRUPT ADDRESS WAS GENERATED. TO GO INTO 
SCOPE LOOP, PUSH START. LOGIC KM201. 

WAIT 17-PICK ADDR BIT 15 WHEN GATING INTERRUPT ADDR FROM I/O 
BUSS TO B REG DURING BSI 12 CYCLE. TO GO INTO SCOPE 
LOOP, PUSH START. LOGIC KM201. 

WAIT 18-DROPPED ADDR BIT 12 WHEN GATING INTERRUPT ADDR FROM 1/0 

BUSS TO 8 REG DURING BSI 12 CYCLE. TO GO INTO SCOPE LOOP 
PUSH START. LOGIC KM201. 



WAIT 



19-PICKED ADDR BIT lA WHEN GATING INTERRUPT ADDR FROM I/O 

BUSS TO B REG DURING BSI 12 CYCLE. TO GO INTO SCOPE LOOP 
PUSH START. LOGIC KM201. 



WAIT lA-NO INTERRUPT ADDR BITS GATED FROM I/O BUSS TO B REG 

DURING BSI 12 CYCLE. TO GO INTO SCOPE LOOP, PUSH START. 
LOGIC KM201. 

WAIT IC-INTERRUPT OPERATION WAS NORMAL WHEN MASKING OUT WAIT OP. 
SUSPECT RUN TRIGGER IS NOT BEING SET. PUSHING START WILL 
CAUSE 1 FEED CYCLE EACH TIME IT IS PUSHED. LOGIC KAIOI. 

LOOP LEVEL ON-LEVEL CANNOT BE RESET. AN AUTOMATIC SCOPE 
LOOP IS SET UP WITH THE PROG TRYING TO RESET 
IT. LOGIC KM201. 

LOOP LEVEL 1 ON-LEVEL 1 CANNOT BE RESET. AN AUTOMATIC SCOPE 

LOOP IS SET UP WITH THE PROGRAM TRYING TO RESET 
IT. LOGIC KM201. 

LOOP LEVEL 2 ON-LEVEL 2 CANNOT BE RESET. AN AUTOMATIC SCOPE 

LOOP IS SET UP WITH THE PROGRAM TRYING TO RESET 
IT. LOGIC KM201. 

LOOP LEVEL 3 ON-LEVEL 3 CANNOT BE RESET. AN AUTOMATIC SCOPE 

LOOP IS SET UP WITH THE PROGRAM TRYING TO RESET 
IT. LOGIC KM201. 

LOOP LEVEL 5 ON-LEVEL 5 CANNOT BE RESET. AN AUTOMATIC SCOPE 

LOOP IS SET UP WITH PROGRAM TRYING TO RESET IT. 
LOGIC KM201. 
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2. TABLE B - TEST 2 WAITS AND SCOPE LOOPS 



WAIT 21-NO INTERRUPTS WERE GENERATED WITHIN 500 MSEC. AFTER A 

CARD IS FED. THIS SHOULD HAVE BEEN ENOUGH TIME TO RECEIVE 
80 COLUMN INTERRUPTS AND AN END OF INTERRUPT. TO GO INTO 
SCOPE LOOP, PUSH START. IF AN INTERRUPT IS GENERATED 
DURING THE SCOPE LOOP, A WAIT WILL IDENTIFY IT LOGIC KM30 

WAIT 22-NO LEVEL 4 INTERRUPT WAS GENERATED AFTER AT LEAST 1 
COLUMN INTERRUPT WAS RECEIVED. THE ACTUAL NUMBER OF 
COLUMN INTERRUPTS IS DISPLAYED IN THE A REG. POSSIBLE 
CAUSE COULD BE LEVEL NOT BEING RESET. TO GO INTO 
SCOPE LOOP, PUSH START LOGIC KM321. 

WAIT 23-MORE THAN 80 COLUMN INTERRUPTS WERE RECEIVED WHEN END 

OP HAS GENERATED. THE ACTUAL NUMBER OF COLUMN INTERRUPTS 
IS DISPLAYED IN THE A REG. POSSIBLE CAUSE COULD BE 
DEVICE EMITTER. TO GO INTO SCOPE LOOP, PUSH START. 

WAIT 2't-LESS THAN 80 COLUMN INTERRUPTS HERE RECEIVED WHEN END 

OP WAS GENERATED. THE ACTUAL NUMBER OF COLUMN INTERRUPTS 
IS DISPLAYED IN THE A REG. POSSIBLE CAUSE COULD BE 
DEVICE EMITTER. TO GO INTO SCOPE LOOP, PUSH START. 

WAIT 25-INTERRUPT GENERATED CAUSE A LEVEL 1 ADDRESS TO BE GENE- 
RATED. POSSIBLE CAUSE COULD BE THAT ADDRESS BIT 15 HAS 
PICKED WHEN TRANSFERRING INTERRUPT ADDRESS FROM I/O BUSS 
TO B REG DURING 12 CYCLE OF A LEVEL INTERRUPT. COLUMN 
COUNT IS DISPLAYED IN A REG. TO GO INTO SCOPE LOOP, 
PUSH START. LOGIC KM201. 

WAIT 26-INTERRUPT GENERATE CAUSE A LEVEL 2 ADDRESS TO BE GENERATE 
POSSIBLE CAUSE COULD BE THAT ADDRESS BIT 14 WAS PICKED 
WHEN TRANSFERRING INTERRUPT ADDRESS FROM I/O BUSS TO B 
REG DURING 12 CYCLE OF A LEVEL INTERRUPT. COLUMN COUNT 
IS DISPLAYED IN A REG. TO GO INTO SCOP LOOP, PUSH 
START. LOGIC KM201. 

WAIT 27-INTERRUPT GENERATED CAUSED A LEVEL 3 ADDRESS TO BE 

GENERATED. POSSIBLE CAUSE COULD BE THAT ADDRESS BITS 
14 AND 15 WERE PICKED WHEN TRANSFERRING INTERRUPT 
ADDRESS FROM I/O BUSS TO 6 REG DURING 12 CYCLE OF A LEVEL 
INTERRUPT. COLUMN COUNT IS DISPLAYED IN A REG. TO GO 
INTO SCOPE LOOP, PUSH START. LOGIC KM201. 

WAIT 28-INTERRUPT GENERATED CAUSED A LEVEL 3 ADDRESS TO BE 

PICKED WHEN TRANSFERRING INTERRUPT ADDRESS FROM I/O BUSS 
TO B REG DURING 12 CYCLE OF A LEVEL INTERRUPT. COLUMN 
COUNT IS DISPLAYED IN A REG. TO GO INTO SCOPE LOOP, 
PUSH START. LOGIC KM201. 

WAIT 29-BIT 12 WAS DROPPED WHEN TRANSFERRING INTERRUPT ADDRESS 
FROM I/O BUSS TO B REG DURING 12 CYCLE OF A LEVEL 
INTERRUPT. COLUMN COUNT IS DISPLAYED IN A REG. TO GO IN 
SCOPE LOOP, PUSH START. LOGIC KM201 



3. TABLE C - AUTOMATIC LOOP RESET MODE WAITS 



WAIT 3F - AUTOMATIC LOOP RESET MODE SELECTED. TURN C.E. INTERRUP 
DELAY SWITCH OFF. THIS SHOULD CAUSE AN AUTOMATIC RESET 
LOOP FOR THE LEVEL SELECTED IN BIT SWITCHES 4 THROUGH 7 
LOGIC KT311. 

WAIT 30 - LEVEL WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 
RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO 
WAI T 1. 

WAIT 31 - LEVEL 1 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 
RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO 
WAIT 1. 

WAIT 32 - LEVEL 2 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 
RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GU TO 
WAIT 1. 

WAIT 33 - LEVEL 3 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 
RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TU 
WAI T !• 

WAIT 34 - LEVEL 4 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 
RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO 
WAI T 1. 

WAIT 35 - LEVEL 5 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 
RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO 
WAIT 1. 



3.4 C.E. SCOPE LOOP OPTIONS 



1. THE FEED CYCLE RATE IS PROGRAMED FOR 2 CYCLE PER SECOND THI'; 
RATE CAN BE CHANGED BY THE C.E. THROUGH THE SETTING OF BIT 
SWITCHES 8, 9, 10, OR 11 AS FOLLOWS 

1. BIT SW.8 ON - 4 CYCLES PER SECOND. 

2. BIT SW.9 ON - 8 CYCLES PER SECOND. 

3. BIT SWIO ON - 16 CYCLES PER SECOND. 

4. BIT SWll ON - MAX PROGRAMED SPEED. 

5. NO SWS ON - 2 CYCLES PER SECOND. 

THESE SWITCHES MAY BE CHANGED AT ANY TIME DURING SCOPE LOOP. 

^* lofeT^S^*^ °'' ^^^^ CYCLES BETWEEN WAIT TWOS ARE PROGRAMED FOR 100 
THIS NUMBER CAN BE CHANGED BY THE C.E. THROUGH THE SETTING OF BIT 
SWITCHES 12, 13, 14, OR 15 AS FOLLOWS 

1. BIT 12 ON - 25000 FEED CYCLES 

2. BIT 13 ON - 250 FEED CYCLES 

3. BIT 14 ON - 50 FEED CYCLES 

4. BIT 15 ON - 10 FEED CYCLES 

5. NO BITS ON - 100 FEED CYCLES 

THE SWITCHES MAY BE CHANGED AT ANY TIME DURING THE SCOPE LOOP. 

^* In^u^:T*,"'*^ '^"^ OPTION TO TERMINATE THE SCOPE LOOP AND RETURN 
TO WAIT 1 FOR ANY NEW SET UP BY TURNING ON BIT SWITCH 03. 
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4. PRINTOUTS (NONE) 

5. PROGRAM PHILOSOPHY 

INTERRUPT TEST WILL BE RUN AFTER PROBLEMS ARE ENCOUNTERED WHEN TRYING TO 
LOAD A PROGRAM WITH THE BASIC LOADER IN THE LOAD AND GO MODE. THE CE 
INTERRUPT DELAY SWITCH IS THEN PLACED IN THE ON POSITION AND THE C.P.U. 
TEST IS THEN LOADED, AGAIN USING THE BASIC LOADER. THE SWITCH BEING ON, 
ALLOWS THE C.P.U. TEST TO BE LOADED WITHOUT THE INTERRUPT CIRCUITRY. IF THE 
C.P.U. TEST RUNS SUCCESSFULLY, THEN THE INTERRUPT CIRCUITRY WOULD BECOME 
THE PRIME AREA OF SUSPICION AS CAUSE OF THE LOADING PROBLEM. THE INTERRUPT 
TEST WOULD THEN BE RUN NEXT. 

THE INTERRUPT TEST DOES NOT CHECK ON DATA TRANSFER, BUT DOES CHECK THE 
PROPER OPERATION OF THE INTERRUPT FORCED BRANCH INSTRUCTION AND THE PROPER 
LEVEL INTERRUPT ADDRESS. IN MOST CASES, AFTER THE TEST LOCATES THE PROBLEM 
AND IDENTIFIES IT WITH THE PROPER WAIT, A SCOPING LOOP CAN BE ENTERED BY 
DEPRESSING START. THE CE. HAS 3 OPTIONS AT HIS CONTROL WHILE IN THE SCOPIN 
LOOP. THESE ARE 

1. DELAY BETWEEN FEED CYCLES 

2. NUMBER OF FEED CYCLES BETWEEN WAIT 2 

3. AN OPTION TO SELECT ANOTHER DEVICE IF THERE IS ONE AVAILABLE 

THE INTERRUPT TEST ALSO ALLOWS THE CE. TO SELECT AN AUTOMATIC LEVEL RESET 
LOOP MODE. THIS OPTION IS TO BE USED WHEN A LEVEL CANNOT BE RESET. IF 
THIS WERE THE CASE, MOST OF THE PROGRAM'S TIME WOULD BE SPENT TRYING TO 
SERVICE THE INTERRUPT LEVEL AND PROGRAM OPERATION WOULD BE VERY ERRATIC 
THEREFORE, THIS OPTION IS SET UP WITH A MINIMUM OF PROGRAM STEPS AFTER THE 
CE. INTERRUPT DELAY SWITCH IS TURNED OFF. IF THE INTERRUPT LEVEL IS RESET, 
A WAIT WILL INDICATE SO. 

THE INTERRUPT TEST AIDS IN LOCATING PROBLEMS IN 3 BASIC AREAS. THEY ARE 

1. LEVEL '* (END OP) OF THE READ IN DEVICES 

2. LEVEL (COLUMN) OF THE 1442 

3. LEVELS WHICH CANNOT BE RESET 

LEVEL 4 - AT THE END OF A FEED OPERATION, THIS INTERRUPT IS GENERATED. THE 
TEST TRAPS SUCH FAILURES AS NO INTERRUPT GENERATED DURING A WAIT OP, NO 
INTERRUPT GENERATED WHILE PROGRAM IS RUNNING, NO TRANSFER OF BSI L INSTRUCTI 
BITS OR INTERRUPT ADDRESS BITS FROM I/O BUSS TO B REG, DROPPING OR PICKING 
BITS BETWEEN I/O BUSS AND B REG, AND THE DETECTION OF AN INTERRUPT LEVEL NOT 
BEING RESET WHILE THIS TEST IS BEING RUN. ALL READ/IN DEVICES USE THIS PHAS 
OF THE TEST AND THE WAITS ARE IDENTIFIED BY WAIT IX WHERE X IS THE PROBLEM 
IDENTIFIER. 

LEVEL - THE 1442 IS THE ONLY READ/IN DEVICE USING THIS PHASE OF THE TEST. 
THE TEST TRAPS PROBLEMS AS NO INTERRUPT GENERATED, NO LEVEL 4 INTERRUPT 
GENERATED AFTER AT LEAST 1 LEVEL INTERRUPT, PICKED OR DROPPED ADDRESS 
BITS ASSOCIATED WITH A LEVEL INTERRUPT, LESS THAN 80 COLUMN INTERRUPTS 
BEFORE AN END OP, AND MORE THAN SO COLUMNS BEFORE AN END OP. THE WAITS 
ASSOCIATED WITH THIS PHASE ARE-WAIT 2X, WHERE X IDENTIFIES THE PROBLEM. 

AUTOMATIC LEVEL RESET LOOP - ALLOW SCOPING OF LEVELS WHICH CANNOT BE RESET. 
THIS MODE IS IDENTIFIED BY WAIT 3F. IF THE LEVEL IS RESET WHILE LOOPING, 
THE PROGRAM WILL WAIT. THE WAITS ASSOCIATED WITH THIS PHASE ARE-WAIT 3X, 
WHERE X IDENTIFIES THE LEVEL. DEPRESSING START WILL CAUSE THE PROGRAM TO GO 
WAIT 1, WHERE A NEW SETUP CAN BE MADE. 

THE TEST IS DYNAMIC WHILE TESTING LEVEL AND LEVEL 4 INTERRUPT OPERATION. 
IF AN INTERMITTENT FAILURE IS ENCOUNTERED, THE PROGRAM WILL INDICATE EACH 
FAILURE. IF THE TEST IS IN A SCOPE LOOP AND THE TROUBLE DISAPPEARS, THE 
PROGRAM AUTOMATICALLY RECOVERS AND TRIES TO COMPLETE A SUCCESSFUL RUN OR TRA 
ANY OTHER FAILURE THAT MIGHT OCCUR. 

6. APPENDIX (NONE) 
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0000 

0500 03A8 

0501 1000 

0502 300F 



0503 
0505 
0507 
0509 
050B 
050D 
050F 
0511 
0513 
0515 
0517 
0519 
051B 
0510 
051F 
0521 
0523 
0525 



6500 
6000 
6500 
6D00 
6500 
6000 
6500 
6D00 
6500 
6D00 
6500 
6D00 
6500 
6000 
6500 
6000 
6500 
















6D00 



0735 
0008 
0745 
0009 
0755 
OOOA 
0765 
OOOB 
0771 
OOOC 
07BC 
0000 
07DC 
0004 
07E8 
OOOE 
07F4 
0000 



0527 7001 



0528 3001 



0529 6500 1000 
052B 69FB 
052C OCOO 0A68 
052E C400 0A79 

0530 180C 



ABS 
ORG 
DC 
BEGIN NOP 

WAITF WAIT 



/500 
/03A8 



/F 



PID 



* 

WAIT F * 

* 

IF PROGRAM IS BEING RUN BECAUSE AN INTRPT * 
INDICATOR IS NOT BEING CLEARED, SET COSOLE* 

ENTRY SWITCHES 4 7 TO IDENTIFY LEVEL AT * 

FAULT AMD SELECT DEVICE TO BE USED IN TEST* 
MAKE DEVICE READY AND PUSH START. 



IF PROGRAM IS BEING RUN BECAUSE OF SOME 
OTHER REASON THAN STATED ABOVE, 

A. SELECT DEVICE VIA CONSOLE SWITCHES 
2 . 

B. MAKE DEVICE READY. 

C. PRESS START. 
MOTE INITIAL WAIT F , SELECT PROGRAM READ 
IN DEVICE * 

********************************************* 

* * 
********************************************* 

* INTERRUPT VECTOR SETUP. * 



MAPIT LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 

* 

MDX 

* 

WAITl WAIT 



LI VECOO 
LI /OOOB 
LI VECOl 
H /0009 
LI VEC02 
LI /OOOA 
LI VEC03 
LI /OOOB 
LI VEC04 
LI /OOOC 
LI VEC05 
LI /OOOD 
LI BAD12 
LI /0004 
LI BAD14 
LI /OOOE 
LI NOADR 
LI /OOOO 

WHICH 

1 



LEVEL 
LEVEL 1 
LEVEL 2 
LEVEL 3 
LEVEL 4 
LEVEL 5 
BIT 12 DROPPED 



BIT 14 PICKED 

NO INTERRUPT ADDR 



***«****************************************' 



* 
* 
* 
* 

* 



WAIT 1 

A. SELECT DEVICE VIA CONSOLE SWITCHES 
2. 

B. MAKE DEVICE READY. 

C. PRESS START. 



************* *****«**********=i 
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WHICH LDX 
STX 
XIO 
LD 
SRA 



15JUN67 
420317 



LI /lOOO 

1 WAITl-1 
L BITSW 
L BITSl 
12 



READ BIT SWITCHES 
LOAD BIT SWITCHES 
SET UP FOR DEVICE 



15FEB68 
420403 



3A800020 

3A800030 

3A800040 

3A800050 

3A800060 

3A800070 

3A800080 

3A800090 

3A800100 

3A800110 

3A800120 

3A800130 

3A800140 

3A800150 

3A800160 

3A800170 

3A800180 

3A800190 

3A800200 

3A800210 

3A800220 

3A800230 

3A800240 

3A800250 

3A800260 

3A800270 

3A800280 

3A800290 

3A800300 

3A800310 

3A800320 

3A800330 

3A800340 

3A800350 

3A800360 

3A80037O 

3A800380 

3A800390 

3A800400 

3A800410 

3A800420 

3A800430 

3A800440 

3A800450 

3A800460 

3A800470 

3A800480 

3A800490 

3A800500 

3A800510 

3A800520 

3A800530 

3A800540 

3A800550 

3A800560 

3A800570 

3A800580 

3A800590 

3A800600 

3A800610 

3A800620 

3A800630 

3A800640 

3A800650 

3A800660 

3A800670 

3A800680 

3A800690 



PROG ID 
PAGE 



0531 





D400 


0A7A 


STO 


L 


BITS2 


0533 
0534 






1801 
4C04 


05CC 


SRA 
BSC 


L 


1 
WHAT3,E 


0536 
0537 






1801 
4C04 


05C2 


SRA 
BSC 


L 


1 
WHAT2,E 


0539 
053A 






1801 
4C04 


05B9 


SRA 
BSC 


L 


1 
WHAT1,E 



03A8-0 
1 



0555 





6500 


3030 


GOLOP 


LDX 


LI 


/3030 


0557 





6000 


073A 




STX 


LI 


M0D13 


0559 





6500 


3031 




LDX 


LI 


/3031 


055B 





6000 


074A 




STX 


LI 


M0D14 


055D 





6500 


3032 




LDX 


LI 


/3032 


055F 





6000 


075A 




STX 


LI 


M0D15 


0561 





6500 


3033 




LDX 


LI 


/3033 


0563 





6000 


076A 




STX 


LI 


M0D16 


0565 





6500 


3035 




LDX 


LI 


/3035 


0567 





6000 


07C1 




STX 


LI 


M0D17 


0569 





C400 


09 IF 




LD 


L 


M0D12£1 


056B 





D400 


0740 




STO 


L 


M0D13e6 


056D 





D400 


0750 




STO 


L 


M0D14E6 


056F 





0400 


0760 




STO 


L 


M0D15&6 


0571 





0400 


0770 




STO 


L 


M0D16S6 


0573 





D400 


07C7 




STO 


L 


M0D17&6 


0575 





303F 




LOOPS 


WAIT 




/3F 


0576 





4C00 


0528 




BSC 


L 


WAITl 


0578 





70FD 




* 


MDX 




LOOPS&l 


0579 





1801 




CKBIT 


SRA 




1 


057A 





4C04 


059B 




BSC 


L 


VECT3,E 


057C 





1801 






SRA 




1 


DATE 01MAY66 


15N0V66 


15JUN67 


15f-EB68 


EC NO. 415490B 


419605 


420317 


420403 



CHECK FOR 2501 
CHECK FOR PAPER TAPE 
CHECK FOR 1442 



********************************************* 

* * 

* WAIT 8 * 

* * 

* NO DEVICE WAS FOUND TO BE SELECTED. * 

* MAKE SELECTION AND PRESS START. * 

* * 
********************************************* 
* 

NO DEVICE SELECTED 
SET UP TO CHK AGAIN 

READ BIT SWITCHES 
LOAD BIT SWITCHES 
LEVEL ON CHECK 
LEVEL CHECK BITS 
CHECK FOR LEVEL ON 
SET UP LEVEL LOOP 
LEVEL CHECK BITS 
NUM OF LEVEL IS ODD 
CHECK FOR LEVEL 2 ON 
SET UP LEVEL 2 LOOP 
CHECK FOR LEVEL 4 ON 
SET UP LEVEL 4 LOOP 
NO RESET LOOP SEL. 

********************************************* 

* WAIT 3F * 

* LEVEL RESET LOOP OPTION HAS BEEN CHOSEN. * 

* TURN C.E. INTERRUPT SWITCH - OFF. THIS * 

* SHOULD SET UP AN AUTOMATIC RESET LOOP FOR * 

* DEVICE AND LEVEL SELECTED, FOR SCOPE/WORK. * 
********************************************* 

* RESTORE LEVEL RESET LOOP WAITS * 
********************************************* 

RESTORE WAIT 30 



053C 





3008 




WAITS 


WAIT 




8 


053D 





4C00 


0529 


3'C 


BSC 


L 


WHICH 


053F 





OCOO 


0A68 


CKLOP 


XIO 


L 


BITSW 


0541 





C400 


0A79 




LD 


L 


BITSl 


0543 





1808 






SRA 




8 


0544 





0400 


0A7B 




STO 


L 


BITS3 


0546 





1803 






SRA 




3 


0547 





4C04 


0581 




BSC 


L 


VECTO,E 


0549 





C400 


0A7B 




LD 


L 


BITS3 


054B 





4C04 


0579 




BSC 


L 


CKBIT, E 


054D 





1801 






SRA 




1 


054E 





4C04 


0591 




BSC 


L 


VECT2,E 


0550 





1801 






SRA 




1 


0551 





4C04 


05A5 




BSC 


L 


VECT4,E 


0553 





4C00 


06AF 




BSC 


L 


CLRIX 



RESTORE WAIT 31 



RESTORE WAIT 32 



RESTORE WAIT 33 



RESTORE WAIT 35 

SET UP WAIT 1 RETURN 



CHECK FOR LEVEL 3 ON 
SET UP LEVEL 3 LOOP 
CHECK FOR LEVEL 5 



3A800700 

3A800710 

3A800720 

3A800730 

3A800740 

3A800750 

3A800760 

3A800770 

3A800780 

3A800790 

3A800800 

3A800810 

3A800820 

3A800830 

3A800840 

3A800850 

3A800860 

3A800870 

3A800880 

3A800890 

3A800900 

3A800910 

3A800920 

3A800930 

3A800940 

3A800950 

3A800960 

3A800970 

3A8009 80 

3A800990 

3A801000 

3A801010 

3A801020 

3A801030 

3A801040 

3A801050 

3A801060 

3A801070 

3A801080 

3A801090 

3A801100 

3A801110 

3A801120 

3A801130 

3A801140 

3A801150 

3A801160 

3A801170 

3A801180 

3A801190 

3A801200 

3A801210 

3A801220 

3A801230 

3A801240 

3A801250 

3A801260 

3A801270 

3A801280 

3A801290 

3A801300 

3A801310 

3A801320 

3A801330 

3A801340 

3A801350 

3A801360 

3A801370 
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0570 4C04 05AF 
057F 4000 0587 

0581 6500 0732 
0583 6D0O 0577 
0585 4C00 0555 

0587 6500 0742 
0589 6000 0577 
058B 6500 0741 
058D 6D00 0009 
058F 4C0O 0555 

0591 6500 0752 

0593 6D00 0577 

0595 6500 0752 
0597 6D00 OOOA 
0599 4C00 0555 

0596 6500 0762 
059D 6000 0577 
059F 6500 0761 
05A1 6D00 OOOB 
05A3 4C00 0555 

05A5 6500 081F 
05A7 6D00 0577 
05A9 6500 081E 
05aB 6D00 OOOC 
05AD 4C00 0555 

05AF 6500 07B9 
05B1 6D00 0577 
05b3 6500 07B8 
05B5 6D00 GOOD 
05B7 4C00 0555 

05B9 OCOO 0A5A 
05BB 4C04 05BF 
053D 4C00 05D5 



05BF 300A 
05C0 4C00 0529 

05C2 OCOO 0A5C 
05C4 180A 
05C5 4C04 05C9 
05C7 4C00 061F 



05C9 300B 
05CA 4C00 0529 

05CC OCOO 0A5E 
05CE 4C04 0502 
0500 4C00 0667 



BSC 
BSC 

VECTO LDX 
STX 



VECT5,E 
VECTl 



BSC 

* 

VECTl LDX 
STX 
LDX 
STX 
BSC 

VECT2 LDX 
STX 
LDX 
STX 
BSC 

VECT3 LDX 
STX 
LDX 
STX 
BSC 

VECT4 LDX 
STX 
LDX 
STX 
BSC 

VECT5 LDX 
STX 

LDX 
STX 
BSC 

* 

WHATl XIO 
BSC 
BSC 

********** 

* 

* 1442 SEL 

* OR SOME 

* ENTRY SW 

:{::;: ;^ :^ :^ 4: :jc :$: :4^ :{c 

NRDYA WAIT 
BSC 



LI LOOPOai 
LI L00PS£,2 
L GOLOP 

LI LOOPlEl 
LI L00PS&2 
LI LOOPl 
LI /0009 
L GOLOP 

LI L00P2ei 
LI L00PS62 
LI L00P261 
LI /OOOA 
L GOLOP 

LI L00P3C1 

LI L00PS62 

LI L00P3 

LI /OOOB 

L GOLOP 

LI L00P461 

LI L00PSS2 

LI L00P4 

LI /OOOC 

L GOLOP 

LI L00P5£1 
LI L00PS62 
LI L00P5 
LI /OOOD 
L GOLOP 



SET UP LEVEL 5 LOOP 
SET UP LEVEL 1 LOOP 



SET LEV LOOP VECTOR 
SET UP, GO TO WAIT 3F 



SET LEV LOOP VECTOR 



SET UP, GO TO WAIT 3F 



SET LEV LOOP VECTOR 



SET UP, GO TO WAIT 3F 



SET LEV LOOP VECTOR 



SET UP, GO TO WAIT 3F 



SET LEV LOOP VECTOR 



SET UP, GO TO WAIT 3F 



SET LEV LOOP VECTOR 



SET UP, 60 TO WAIT 3F 



L SENSE SENSE 1442 READY 

L NRDYA, E CHK NOT READY 

L SET42 SET UP 1442 PROG VEC 

WAIT A * 

ECTED AND NOT READY. MAKE IT READY* 
OTHER DEVICE SELECTION VIA CONSOLE* 
ITCHES. PUSH START. * 

ifc********************************** 

/A SEL 1442/NOT READY 

L WHICH CHK DEVICE AGAIN 



WHAT2 XIO 
SRA 
BSC 
BSC 



SENSE P.T. READY 



L 
L 



SENPT 
10 

NRDYB.E CHK NOT READY 
SETPT SET UP P.T. PROG VEC 
********************************************* 

* WAIT B * 

* P.T. SELECTED AND NOT READY. MAKE IT READY* 

* OR SOME OTHER DEVICE SELECTION VIA CONSOLE* 

* ENTRY SWITCHES. PUSH START. * 

««5>«*****«««*«««***************************** 



/B SEL P.T. /NOT READY 

L WHICH CHK DEVICE AGAIN 

L SEN25 SENSE 2501 READY 
L NRDYC.e CHK NOT READY 
L SET25 SET UP 2501 PROG VEC 
****«****#««*«*******♦*********************** 

* WAIT C * 

* 2501 SELECTED AND NOT READY. MAKE IT READY* 



NRDYB WAIT 
BSC 

* 

WHAT3 XIO 
BSC 
BSC 



3A801380 

3A801390 

3A801400 

3A801410 

3A801420 

3A801430 

3A801440 

3A801450 

3A801460 

3A801470 

3A801480 

3A801490 

3A801500 

3A801510 

3A801520 

3A801530 

3A801540 

3A801550 

3A801560 

3A801570 

3A801580 

3A801590 

3A801600 

3A801610 

3A8G1620 

3A801630 

3A801640 

3A 80 16 50 

3A801660 

3A801670 

3A801680 

3A801690 

3A801700 

3A801710 

3A801720 

3A801730 

3A801740 

3A801750 

3A801760 

3A801770 

3A801780 

3A801790 

3A801800 

3A801810 

3A801820 

3A801830 

3A801840 

3A801850 

3A801860 

3A801870 

3A801880 

3A801890 

3A801900 

3A801910 

3A801920 

3A801930 

3A801940 

3A801950 

3A801960 

3A801970 

3A801980 

3A801990 

3A802000 

3A802010 

3A802020 

3A802030 

3A802040 

3A802050 



* OR SOME OTHER DEVICE SELECTION VIA CONSOLE* 

* ENTRY SWITCHES. PUSH START. * 
#«******«****«******************************* 



0502 300C 
05D3 4C00 0529 



0505 
05D7 
0509 
05DB 
05DD 
05DF 
05E1 
05E3 
05E5 
05E7 
05E9 
05EB 
05E0 
05EF 
05F1 
05F3 



6500 
6D00 
6000 
6D00 
6000 
60 00 
6D00 
6000 
6D0O 
6D00 
6D00 
6D00 
6D00 
6D00 
6D00 
6000 



0A5A 
06DD 
06EB 
072B 
0737 
0747 
0757 
0767 
0773 
07BE 
07CA 
07DE 
07EA 
07F6 
0803 
080C 



05F5 6580 0A8E 
05F7 6000 06DE 

05F9 6580 0A8D 

05 FB 6D0O 06EC 

05FD 6D00 0804 

05FF 6D00 0800 

0601 6500 0A6C 
0603 6000 06F0 

0605 6500 0A87 
0607 6D00 06FF 
0609 6000 0724 

060B 6500 0A84 
0600 6000 07AA 

060F 6500 082A 
0611 6000 07AC 



0613 
0614 
0616 



3005 
OCOO 0A68 



C400 0A79 

0618 180C 

0619 9400 0A7A 
061B 4C18 053F 
0610 4C00 0529 

061F 6500 0A5C 

0621 6D00 0600 

0623 6000 06EB 

0625 6000 072B 

0627 6000 0737 



NRDYC 
SET42 



WAIT 
BSC 

LDX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 

LDX 
STX 

LDX 
STX 
STX 
STX 

LDX 
STX 

LDX 
STX 
STX 

LDX 
STX 

LDX 
STX 



LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 

U 
LI 

U 
LI 
LI 
LI 

LI 
LI 

LI 
LI 
LI 

LI 
LI 

LI 
LI 



/C 
WHICH 

SENSE 

BUSYtl 

TEST163 

WAITG&2 

VEC0062 

VEC01C2 

VEC02e2 

VEC0362 

VEC04E2 

VEC05&2 

CKD0KS2 

BAD12S2 

BAD1462 

N0ADRe2 

DSWCKe3 

DSWCKei2 

SRAOl 
BUSY62 

NOPIT 
TEST164 
DSWCKS4 
DSWCKei3 

FEED 
TEST1S8 

KlOO 

NUMBRSl 

NUMCKEl 

KOlO 
FINSHfil 

SETUP 
FINSHS3 



SEL 2501/NOT READY 
CHK DEVICE AGAIN 

SET UP 1442 SENSE WO 



SET UP 1442 BUSY CHK 



SET UP 1442 CONTROLS 



SET UP 1442 XIO 



SET UP 1442 LOOP CNT 



SET UP 1442 GOOD CNT 



SET UP 1442 TEST VEC 



#***j;t**«)ic#*«************************=l 
* 

WAIT 5 



* 
* 
* 
* 
* 
* 
* 
* 



1442 WAS FOUND READY AND WILL BE THE 

DEVICE USED IN THE TEST. 

IF INTERRUPT DELAY SW ON, TURN OFF 

IF PROGRAM DOES NOT START RUNNING BECAUSE 

OF A PENDING INTERRUPT, DEPRESS START. 



* 
* 
* 

* 
* 



iSJlcAKl* :*:**=!:*********«#*** ************* 



* 

SETPT 



WAIT 

XIO 

LD 

SRA 

S 

BSC 

BSC 

LDX 
STX 
STX 
STX 
STX 



L 
L 

L 
L 
L 

LI 
LI 
LI 
LI 
LI 



5 

BITSW 

BITSl 

12 

BITS2 

CKL0P,6- 

WHICH 

SENPT 

BUSYGl 

TEST1&3 

WAITGe2 

VEC00&2 



1442 SELECTED 
READ BIT SWITCHES 
LOAD BIT SWITCHES 

LAST DEVICE SELECTED 
CHK FOR LEVEL LOOP 
NEW DEVICE SELECTED 

SET UP PT SENSE WD 



3A802060 

3A802070 

3A802080 

3A802090 

3A802100 

3A802110 

3A802120 

3A802130 

3A802140 

3A802150 

3A802160 

3A802170 

3A802180 

3A802190 

3A802200 

3A802210 

3A802220 

3A802230 

3A802240 

3A802250 

3A802260 

3A802270 

3A802280 

3A802290 

3A802300 

3A802310 

3AB02320 

3A802330 

3A802340 

3A802350 

3A802360 

3A802370 

3A802380 

3A802390 

3A802400 

3A802410 

3A802420 

3A802430 

3A802440 

3A802450 

3A802460 

3A802470 

3A802480 

3A802490 

3A802500 

3A802510 

3A802520 

3A802530 

3A802540 

3A802550 

3A802560 

3A802570 

3A802580 

3A802590 

3A802600 

3A802610 

3A802620 

3A802630 

3A802640 

3A802650 

3A802660 

3A802670 

3A802680 

3A802690 

3A802700 

3A802710 

3A802720 

3A802730 
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0629 6000 0747 






STX 


LI VEC01S2 




3A802740 
3A802750 
3A802760 
3A802770 
3A802780 
3A802790 
3A802800 
3A802810 
3A802820 






062B 6000 0757 
062D 6000 0767 






STX 
STX 


LI VEC0262 
LI VEC03£2 








062F 6000 0773 






STX 


LI VEC04£,2 








0631 6000 07BE 
0633 6D00 07CA 






STX 
STX 


LI VEC0562 
LI CKD0K62 








0635 6DO0 OTOE 
0637 6D00 07EA 






STX 
STX 


LI BA012e2 
LI BAD14e2 








0639 6000 07F6 






STX 


LI NOAORCa 








063B 6D00 0803 






STX 


LI DSHCK63 




3A802830 
3A802840 
3A802850 






063 D 6D00 080C 


^ 




STX 


LI DSHCKC12 








063F 6580 0A90 
0641 6000 06DE 


If 




LDX 
STX 


11 SRAll 
LI BUSY62 


SET UP P.T. BUSY CHK 


3A802860 
3A802870 
3A802880 






0643 6580 OABF 






LDX 


11 SRAIO 


SET UP P.T. ROY CHK 


3A802890 

^^ A r\ f% *\ ^\ f\ £\ 






0645 6000 06EC 






STX 


LI TEST1£4 




3A802900 
3A802910 

"^ M r\ j^ 'I f\ O ^\ 






0647 6000 0804 






STX 


LI DSWCK64 








0649 6000 0800 


If 




STX 


LI 0SWCK£13 




3A802920 
3A802930 






0648 6500 0A74 
0640 6000 06F0 


^ 




LDX 
STX 


LI CNTRL 
LI TESTI&8 


SET UP P.T. XIO 


3A802940 
3A802950 
3A802960 






064F 6500 0A87 
0651 6000 06FF 
0653 6000 0724 






LDX 
STX 
STX 


LI KlOO 
LI NUMBR£1 
LI NUMCK&1 


SET UP P.T. CHAR CNT 


3A802970 
3A802980 
3A802990 
3A803000 
3A803010 






0655 6D00 07AA 


4e 




STX 


LI FINSH61 








0657 6500 0913 






LDX 


LI WAITA 


SET UP P.T. TEST VEC 


3A803020 
3A803030 
3A803040 






0659 6000 07AC 


^ 




STX 


LI FINSH£3 










********************************************* 


3A803050 








4 








» 


3A803060 








* 






WAIT 


6 * 


3A803070 








^ 








« 


3A803080 








« 


PAPER TAPE HAS FOUND READY AND WILL BE THE* 


3A803090 








* 


DEVICE USED IN THE TEST. * 


3A803100 








* 


IF 


INTERRUPT DELAY SW 


ON, TURN OFF * 


3A803110 








* 


IF 


PROGRAM DOES NOT START RUNNING BECAUSE ♦ 


3A803120 








* 


OF 


A PENDING INTERRUPT 


, DEPRESS START. * 


3A803130 








« 








* 


3A803140 








x.******************************************** 


3A803150 






065B 3006 
065C OCOO 0A68 






WAIT 


6 


PAPER TAPE SELECTED 


3A803160 










XIO 


L BITSW 


READ BIT SWITCHES 


3A803170 






^j \j ^ \^ \^ \^ vr ^* ^rf ^-^ *^ ^^ ** 

065E C400 0A79 

0660 180C 

0661 9400 0A7A 






LD 

SRA 

S 


L BITSl 

12 
L BITS2 


LOAD BIT SWITCHES 
LAST DEVICE SELECTED 


3A803180 
3A803190 
3A803200 






0663 4C18 053F 






BSC 


L CKLOP,£- 


CHK FOR LEVEL LOOP 


3A803210 






XM \J U *.* 1-* 1 ** ifc "-^ -^^ •*--*» ■ 

0665 4C00 0529 


^ 




BSC 


L WHICH 


NEW DEVICE SELECTED 


3A803220 
3A803230 






0667 6500 0A5E 


SET25 LDX 


LI SEN25 


SET UP 2501 SENSE WD 


3A803240 
3A803250 
3A803260 
3A803270 
3A803280 
3A803290 
3A803300 
3A803310 
3A803320 
3A803330 






0669 6D00 0600 
066B 6000 06EB 






STX 
STX 


LI BUSYSl 
LI TEST1&3 








066D 6D00 072B 






STX 


LI WAITG62 








066F 6000 0737 






STX 


LI VEC00&2 








0671 6000 0747 






STX 


LI VEC01£2 








0673 6D00 0757 






STX 


LI VEC02e2 








0675 6000 0767 






STX 


LI VEC03&2 








0677 6000 0773 
0679 6D00 07BE 






STX 
STX 


LI VEC0462 
LI VEC05e2 








067B 6D00 07CA 
067D 6000 07DE 
067F 6D00 07EA 






STX 
STX 
STX 


LI CK00K£2 
LI BAD12e2 
LI BAD14G2 




3A803340 
3A803350 
3A803360 
3A803370 
3A803380 
3A803390 
3A803400 






0681 6D00 07F6 
0683 6D00 0803 






STX 
STX 


LI N0ADR£2 
LI DSWCK&3 








0685 6000 080C 


* 




STX 


LI DSWCKS12 








0687 6580 0A8E 






LDX 


11 SRAOl 


SET UP 2501 BUSY CHK 


3A803410 
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0689 6D00 060E 


* 


STX 


LI 1 


3USY&2 




3A803420 
3A803430 






068B 6580 0A8D 




LDX 


11 1 


MOPIT 


SET UP 2501 CONTROLS 


3A803440 






068D 6000 06EC 




STX 


LI 


TEST164 




3A803450 






068F 6D00 0804 




STX 


LI 1 


DSWCK&4 




3A803460 






0691 6D00 080D 


■it- 


STX 


LI 


DSWCK&13 




3A803470 
3A803480 






0693 6500 0A6E 




LDX 


LI 


FEEDS 


SET UP 2501 XIO 


3A803490 






0695 6000 06F0 


If 


STX 


LI 


TEST1S8 




3A803500 
3A803510 






069 7 6500 0A87 




LDX 


LI 


KlOO 


SET UP 2501 CARD CNT 


3A803520 






0699 6000 06FF 




STX 


LI 


NUMBR£1 




3A803530 






069B 6D00 0724 




STX 


LI 


NUMCK61 




3A803540 






069D 6D00 07AA 


* 


STX 


LI 


FINSH&l 




3A803550 
3A803560 






069F 6500 0913 




LDX 


LI 


WAITA 


SET UP 2501 TEST VEC 


3A803570 






06A1 6D00 07AC 


4: 


STX 


LI 


FINSHS3 




3A803580 
3A803590 








*********************** 


********************** 


3A803600 








* 








* 


3A803610 








* 






WAIT 7 « 


3A803620 








* 








* 


3A803630 








* 


2501 WAS 


FOUND READY 


AND WILL BE THE * 


3A803640 








* 


DEVICE USED 


IN THE TEST. * 


3A803650 








* 


IF SOME 1 


OTHER DEVICE 


IS DESIRED, MAKE THAT* 


3A803660 








* 


DEVICE READY AND MAKE 


NEW DEVICE SELECTION* 


3A803670 








* 


VIA THE 1 


CONSOLE ENTRY 


SWITCHES. * 


3A803680 








* 








* 


3A803690 








********************************************* 


3A803700 






06A3 3007 




WAIT 




7 


2501 SELECTED 


3A803710 






1^ u r^ ^ -\j ^^ ** y^ ■ 

06A4 OCOO 0A68 




XIO 


L 


BITSW 


READ BIT SWITCHES 


3A803720 






06A6 C400 0A79 
06A8 180C 
06A9 9400 0A7A 




LO 

SRA 

S 


L 

L 


BITSl 

12 

BITS2 


LOAD BIT SWITCHES 
LAST DEVICE SELECTED 


3A803730 
3A803740 
3A803750 






06AB 4C18 053F 




BSC 


L 


CKLOP,£- 


CHK FOR LEVEL LOOP 


3A803760 






06AD 4C00 0529 


* 


BSC 


L 


WHICH 


NEW DEVICE SELECTED 


3A803770 
3A803780 






06AF 6300 
06B0 6200 
06B1 6100 
0662 6500 0771 


CLRIX LOX 
LDX 
LDX 
LOX 


3 
2 

1 
LI 





VEC04 




3A803790 
3A803800 
3A803810 
3A803820 
3A803830 






06B4 6D00 OOOC 




STX 


LI 


/OOOC 








06B6 C400 0728 




LD 


L 


NUHCK£5 


RESTORE LOOP CHK VEC 


3A803840 

"^ K f\ £^ ^ n c ^\ 






06B8 D400 0740 




STO 


L 


M0D13£6 




3A803850 






06BA D400 0750 




STO 


L 


M0D14£6 




3A803860 






06BC D400 0760 




STO 


L 


M0D15£6 




3A803870 

*\ A t^ ^\ ''% £\ ^^ ^\ 






06BE D400 0770 




STO 


L 


M0D16G6 




3A803880 






06C0 D400 07C7 




STO 


L 


M0D17£6 




3A803890 






06C2 D400 07E7 




STO 


L 


M0D18£6 




3A803900 






06C4 0400 07F3 




STO 


L 


M0D19G6 




3A803910 

*\ A £\ yv «% ^^ ^\ f\ 






06C6 0400 07FF 




STO 


L 


M0D1A£6 




3A803920 






06C8 6500 3013 




LDX 


LI 


/3013 




3A803930 






06CA 6000 073A 




STX 


LI 


M0D13 


RESTORE WAIT 13 


3A803940 
3A803950 






06CC 6500 3014 




LDX 


LI 


/3014 








06CE 6D00 074A 




STX 


LI 


M0D14 


RESTORE WAIT 14 


3A803960 
3A803970 






06D0 6500 3015 




LDX 


LI 


/3015 








06D2 6D00 075A 




STX 


LI 


M0D15 


RESTORE WAIT 15 


3A803980 






06D4 6500 3016 




LDX 


LI 


/3016 




3A803990 






0606 6D00 076A 




STX 


LI 


M0D16 


RESTORE WAIT 16 


3A804000 






06D8 6500 3017 




LDX 


LI 


/3017 




3A804010 






06DA 6D00 07C1 


* 


STX 


LI 


M0D17 


RESTORE WAIT 17 


3A804020 
3A804030 






06DC OCOO 0A5A 


BUSY XIO 


L 


SENSE 


SENSE DSW 


3A804040 






06UE 1801 




SRA 




1 


SET UP TO CHK BUSY 


3A804050 






060F 4C04 06DC 




BSC 


L 


BUSY.E 


CHECK FOR BUSY 


3A804060 






06E1 OCOO 0A68 




XIO 


L 


BITSW 


SENSE BIT SWITCHES 


3A804070 






06E3 C400 0A79 




LD 


L 


BITSl 


LOAD BIT SWITCHES 


3A804080 






06E5 180C 




SRA 




12 


CHK FOR WAIT 1 OPT 


3A804090 
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06E6 4C04 0772 



BSC L VEC04fil,E SET UP FOR RESTORE 



06E8 
06EA 
06eC 
06ED 



6780 0A7F 
OCOO 0A5A 
1000 
4C04 0800 



06fcF OCOO 0A6C 



06F1 

06F2 

05F3 

06F4 

06F5 

06F6 

06F8 

06FA 

06FC 

a6FE 

0700 



3011 
701A 
73FF 
70FE 
6100 

6D00 0A7C 
C400 0A7E 
8400 0A81 
D400 0A7E 
9400 0A87 
4C10 0818 



0702 
0703 
0705 
0707 
0709 



3012 

6500 0771 
6D00 OOOC 
6500 1000 
69E7 



070A 69E7 
070B 69F6 
070C 7009 



070D 
070F 
0710 



6500 1000 
69E1 



69E1 

0711 6500 07C8 
0713 6D00 OOOC 

0715 70C6 

0716 6100 

0717 6000 0A7C 
0719 4C00 0999 

071B 73FF 
071C 70FE 
071D C400 0A7E 
071F 8400 0A83 
0721 D400 0A7E 
0723 9400 0A87 
0725 4C10 0729 
0727 4C00 0716 



TESTl LDX 13 DELAY 

XIO L SENSE 
NOP 

BSC L DSWCK,E 

XIO L FEED 



RUNCK WAIT 

MODll MDX 
MDX 
MDX 
LDX 
STX 
LD 
A 
STO 

NUMBR S 

BSC 

* 

* 

* 
* 

* 
* 



* 

* 

* 

* 

RUNOK WAIT 
LDX 
STX 
LDX 
STX 
STX 
STX 
MDX 

CKRUN LDX 
STX 
STX 
LDX 
STX 
MDX 

* 

FOCYC LDX 
STX 
BSC 

* 

ERROR MDX 
MDX 
LD 
A 

STO 
S 

BSC 
BSC 



NUMCK 



/li 
CKRUN 
3 -1 

M0D1161 
1 
LI GDCNT 
L LPCNT 
L ADDOl 
L LPCNT 
L KlOO 
L WAIT2»- 



/12 

LI VEC04 

LI /OOOC 

LI /lOOO 

1 RUNCK 

1 MODll 

1 RUNOK 

FDCYC 

LI /lOOO 

1 RUNCK 

1 MODll 

LI CKDOK 

LI /OOOC 

BUSY 

1 

LI GDCNT 
L CNTCK 



3 -1 
ERROR 
LPCNT 
KOOl 
LPCNT 
KlOO 
WAITG,- 
FDCYC 



500 MSEC DELAY 
SENSE FOR READY 

CHECK FOR READY 
FEED 

******************** 

* WAIT 11 * 

* NO INTERRUPTS * 

* WERE GENERATED. * 

* TO CKECK OUT RUN * 

* TRIGGER, PUSH * 

* START * 
******************** 

NO INTERRUPTS 

SET UP RUN TRIG CHK 

DECREMENT DELAY BY 1 



RESET GOOD PASS CNTR 
LOAD LOOP COUNT 
ADD 1 TO LOOP COUNT 
STORE LOOP COUNT 
CHK FOR STOP LOOP 



* WAIT 12 

* NO INTERRUPTS 

* WERE GENERATED. 

* SETTING OF RUN 

* TRIGGER APPEARS 

* NOT TO BE THE 

* CAUSE OF THE * 

* FAILURE. * 

* TO GO INTO SCOPE * 

* LOOP, PUSH START.* 
******************** 
NO INT-RUN TRIG CKED 



SET UP LEVEL 4 VEC 

NOP 

SET UP SCOPE LOOP 



BRANCH TO SCOPE LOOP 
SET UP RUN TRIG CHK 

CHECK RUN TRIGGER 



RESET GOOD PASS CNTR 
CHK COUNT OPTION 



STEP DOWN DELAY 
LOAD LOOP COUNT 
ADD 1 TO LOOP CNT 
STORE LOOP CNT 
CHECK FOR STOP LOOP 
CHECK FOR WAIT 2 
FEED AGAIN 
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3A804100 

3A804110 

3A804120 

3A804130 

3A804140 

3A804150 

3A804160 

3A804170 

3A804180 

3A804190 

3A804200 

3A804210 

3A804220 

3A804230 

3A804240 

3A804250 

3A804260 

3A804270 

3A804280 

3A804290 

3A804300 

3A804310 

3A804320 

3A804330 

3A804340 

3A804350 

3A804360 

3A804370 

3A804380 

3A804390 

3A804400 

3A804410 

3A804420 

3A804430 

3A804440 

3A804450 

3A804460 

3A804470 

3A804480 

3A804490 

3A804500 

3A804510 

3A804520 

3A804530 

3A804540 

3A804550 

3A804560 

3A804570 

3A804580 

3A804590 

3A804600 

3A804610 

3A804620 

3A804630 

3A804640 

3A804650 

3A804660 

3A804670 

3A804680 

3A804690 

3A804700 

3A804710 

3A804720 

3A804730 

3A804740 

3A804750 

3A804760 

3A804770 



PROG ID 
PAGE 
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* 










3A804780 










****** 


******** 


:************«*«**************** 


3A804790 










* 








« 


3A804800 










* 






WAIT 


2 * 


3A804810 










* 








* 


3A804820 










* NORMAL WAIT 


AFTER DESIRED NUMBER OF LOOPS * 


3A804830 










* PASSES HAVE 


BEEN MADE. 


PUSH START TO MAKE * 


3A804840 










* ANOTHER LOOP 


' CYCLE. 


* 


3A804850 










********************************************* 


3A804860 










* 










3A804870 




0729 


3002 




WAITG 


WAIT 




2 


STOP SCOPE LOOP 


3A804880 




072A 


OCOO 


0A5A 




XIO 


L 


SENSE 




3A804890 




072C 


6100 






LDX 


1 







3A804900 




072D 


6D00 


0A7E 




STX 


LI 


LPCNT 


RESET LOOP COUNT 


3A804910 




072F 


4C00 


0716 


* 


BSC 


L 


FDCYC 




3A804920 
3A804930 




0731 


0000 




LOOPO 


DC 







******************** 


3A804940 




0732 


OCOO 


0A5C 




XIO 


L 


SENPT 


* LEVEL AUTO * 


3A804950 




0734 


7001 




* 


MDX 




VECOOei 


* LEVEL RESET LOOP * 
******************** 


3A804960 
3A804970 




0735 


0000 




VECOO 


DC 







* LEVEL RESET * 


3A804980 




0736 


OCOO 


0A5A 




XIO 


L 


SENSE 


* SCOPE LOOP * 


3A804990 




0738 


4C40 


073A 


* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 


BOSC 


L 


M0D13 


******************** 

******************** 

* INTERRUPT LEVEL* 

* WAIT 30 * 

* RESET DURING AUTO* 

* SCOPE LOOP. * 

* PUSH START TO GO * 

* TO WAIT 1. * 
******************** 
******************** 

* WAIT 13 * 


3A805000 
3A805010 
3A805020 
3A805030 
3A805040 
3A805050 
3A805060 
3A805070 
3A805080 
3A805090 
3A805100 
3A805110 




073A 


3030 




M0D13 
* 

* 
* 


WAIT 




/30 


* DROPPED ADDR BIT * 

* 13. PUSH START * 

* FOR SCOPE LOOP * 
******************** 


3A805120 
3A805130 
3A805140 
3A805150 




073B 


6580 


0A92 




LDX 


11 


MOFYB 


MDX ERROR 


3A805160 




073D 


6D00 


073A 




STX 


LI 


MODI 3 




3A805170 




073F 


4C00 


0503 


* 


BSC 


L 


MAPIT 


******************** 


3A805180 
3A805190 




0741 


0000 




LOOPl 


DC 







* * 


3A805200 




0742 


OCOO 


0A64 




XIO 


L 


PRINT 


* LEVEL 1 AUTO * 


3A805210 




0744 


7001 




* 


MDX 




VECOltl 


* LEVEL RESET LOOP * 
******************** 


3A805220 
3A805230 




0745 


0000 




VECOl 


DC 







* LEVEL 1 RESET * 


3A805240 




0746 


OCOO 


0A5A 




XIO 


L 


SENSE 


* SCOPE LOOP * 


3A805250 




0748 


4C40 


074A 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


BOSC 


L 


M0D14 


******************** 

******************** 

* WAIT 31 * 

* INTERRUPT 1 LEVEL* 

* RESET DURING AUTO* 

* SCOPE LOOP. * 

* PUSH START TO GO * 

* TO WAIT 1. * 
******************** 
******************** 

* WAIT 14 « 


3A805260 
3A805270 
3A805280 
3A805290 
3A805300 
3A805310 
3A805320 
3A805330 
3A805340 
3A805350 
3A805360 
3A805370 




074A 


3031 




M0D14 

* 

* 

* 

* 


WAIT 




/31 


* INTERRUPT CAUSED * 
« A LEVEL 1 ADDR TO* 

* BE GENERATED. * 

* PUSH START FOR * 

* SCOPE LOOP. * 
******************** 


3A805380 
3A805390 
3A805400 
3A805410 
3A805420 
3A805430 




074B 


6580 


0A93 




LDX 


U 


MOFYC 


MDX ERROR 


3A805440 




074D 


6D00 


074A 




STX 


LI 


M0D14 




3A805450 


DATE 
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074F 4C00 0503 



esc 



MAPIT 



0751 0000 

0752 OCOO 0A60 

0754 7001 

0755 0000 

0756 OCOO 0A5A 
0758 4C40 075A 



075A 3032 



075B 6580 0A94 
075D 6000 075A 
075F 4C00 0503 



0761 0000 

0762 OCOO 0A62 

0764 7001 

0765 0000 

0766 OCOO 0A5A 
0768 4C40 076A 



076A 3033 



076B 6580 0A95 
0760 6D00 076A 
076F 4C00 0503 



0771 
0772 
0774 
0775 
0777 
0779 
077B 
077D 
077F 
0781 



0000 
OCOO 
6100 
6D00 
6580 
6D00 
6500 
6000 
6500 
6000 



0A5A 

0A7E 
0A9A 
06F2 
3011 
06F1 
3012 
0702 



if 
* 
* 

* 

* 

* 
* 
L00P2 



* 
VEC02 



* 
M0D15 

* 
* 
* 
* 



DC 

XIO 

MDX 

DC 

XIO 

BOSC 



WAIT 




L DISK 
VEC02ei 


L SENSE 
L H0015 



/32 



LDX 
STX 
BSC 



U MOFYD 
LI M0D15 
L MAPIT 



* 
* 

* 
* 

L0OP3 



VEC03 



* 
* 
* 

H0016 

* 

* 

* 



* 
VEC04 



DC 

XIO 

MDX 

DC 

XIO 

BOSC 



WAIT 



LDX 
STX 
BSC 

DC 

XIO 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 




L PLOT 
VEC0361 


L SENSE 
L MOD 16 



/33 



II HOFYE 
LI M0D16 
L MAPIT 



L 

1 
LI 
II 
LI 
LI 
LI 
LI 
LI 





SENSE 



LPCNT 
MOFYL 
MODll 
/3011 
RUNCK 
/3012 
RUNOK 



* WAIT 32 * 

* INTERRUPT 2 LEVEL* 

* RESET DURING AUTO* 

* SCOPE LOOP. * 

* PUSH START TO GO * 
« TO WAIT 1. * 

* * 

* LEVEL 2 AUTO * 

* LEVEL RESET LOOP * 

* LEVEL 2 RESET * 

* SCOPE LOOP * 

* WAIT 15 * 

* INTERRUPT CAUSED * 

* A LEVEL 2 ADDR TO* 

* BE GENERATED. * 

* PUSH START FOR * 

* SCOPE LOOP. * 

MDX ERROR 



******************** 

* WAIT 33 * 

* INTERRUPT 3 LEVEL* 

* RESET DURING AUTO* 

* SCOPE LOOP. * 

* PUSH START TO GO * 

* TO WAIT 1. * 
******************** 

* * 

* LEVEL 3 AUTO * 

* LEVEL RESET LOOP * 
******************** 

* LEVEL 3 RESET * 

* SCOPE LOOP * 
******************** 

******************** 

* WAIT 16 * 

* INTERRUPT CAUSED * 

* A LEVEL 3 ADDR TO* 

* BE GENERATED. * 

* PUSH START FOR * 

* SCOPE LOOP. * 
******************** 

MDX ERROR 



RESET LOOP COUNT 
MDX CKRUN 
RESTORE MODll 

RESTORE WAIT 11 

RESTORE WAIT 12 



3A805460 

3A805470 

3A805480 

3A805490 

3A805500 

3A805510 

3A805520 

3A805530 

3A805540 

3A805550 

3A805560 

3A805570 

3A805580 

3A805590 

3A805600 

3A805610 

3Ae05620 

3A805630 

3A805640 

3A805650 

3A805660 

3A805670 

3A805680 

3A805690 

3A805700 

3A805710 

3A805720 

3A805730 

3A805740 

3A805750 

3A805760 

3A805770 

3A805780 

3A805790 

3A805800 

3A805810 

3A805820 

3A805830 

3A805840 

3A805850 

3A805860 

3A805870 

3A805880 

3A805890 

3A805900 

3A805910 

3A80592O 

3A805930 

3Ae05940 

3A805950 

3A805960 

3A805970 

3A805980 

3A805990 

3A806000 

3A806010 

3A806020 

3A806030 

3A806040 

3A806050 

3A806060 

3A806070 

3A806080 

3A806090 

3A806100 

3A806110 

3A806120 

3A 806130 



0783 
0785 
0787 
0789 
0788 
078D 
078F 
0791 
0793 
0795 
0797 
0799 
079B 
079D 
079 F 
07A1 
07 A3 
07A5 
07A7 
07A9 
07AB 
07AD 
07AF 
07B1 
07B2 
07B4 



6500 
6000 
6500 
6D00 
6500 
6D00 
6500 
6D00 
6500 
6000 
6500 
60 00 
6500 
6000 
6500 
6D00 
C400 
8400 
D400 
9400 
4C50 
OCOO 
C400 
180C 
4C44 
4C40 



3013 
073A 
3014 
074A 
3015 
075A 
3016 
076A 
3017 
07C1 
3018 
07E1 
3019 
07E0 
301A 
07F9 
0A7C 
0A83 
0A7C 
0A84 
082A 
0A68 
0A79 

0914 
06AF 



07B6 4C00 0718 

07B8 0000 
07B9 OCOO 0A6A 
07B8 7001 

07BC 0000 
07B0 OCOO 0A5A 
07BF 4C40 07C1 



07C1 3035 



07C2 6580 0A96 
07C4 6000 7C1 
07C6 4C00 0503 

07C8 0000 
07C9 OCOO 0A5A 
07CB 4C40 07CD 

07CD 301C 



07CE 6500 3011 
07D0 6D00 06F1 
07D2 6580 0A91 
07D4 6D00 06F2 
07D6 6500 0771 



LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LO 

A 

STO 

S 

BOSC 

XIO 

LD 

SRA 

BOSC 

BOSC 



GAPIT BSC 

* 

L00P5 DC 
XIO 
MDX 

* 

VEC05 DC 
XIO 



FINSH 



BOSC 



LOX 
STX 
BSC 

* 

CKDOK DC 
XIO 



LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

L 

L 

L 

L 

L 

L 

L 

L 
L 



/3013 

M0D13 

/3014 

M0D14 

/3015 

M0D15 

/3016 

M0D16 

/3017 

M0D17 

/3018 

M0D18 

/3019 

H0D19 

/301A 

MODIA 

GDCNT 

KOOl 

GDCNT 

KOlO 

SETUP, - 

BITSW 

BITSl 

12 

WAITAEl.E 

CLRIX 

ERROR 



STOP 

VEC0561 



SENSE 
MOD 17 



* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

M0D17 WAIT 

* 

* 

* 



BOSC 

* 

WAITC WAIT 

* 

* 

* 

* 

LOX 
STX 
LDX 
STX 
LDX 



/35 



II MOFYF 
LI M0D17 
L MAPIT 





SENSE 

WAITC 

/IC 



LI /3011 

LI RUNCK 

U MOFYA 

LI MODll 

LI VEC04 



RESTORE WAIT 13 

RESTORE WAIT 14 

RESTORE WAIT 15 

RESTORE WAIT 16 

RESTORE WAIT 17 

RESTORE WAIT 18 

RESTORE WAIT 19 

RESTORE WAIT lA 
RESET GOOD COUNT 
ADD 1 TO GOOD COUNT 
STORE GOOD COUNT 
CHK FOR END TEST 
TEST 1 COMPLETE 
SENSE BIT SWITCHES 
LOAD BIT SWITCHES 
CHK FOR WAIT 1 OPT 
RESTORE/GO TO WAIT 1 



ALLOW LOOP 

******************** 

* LEVEL 5 AUTO * 

* LEVEL RESET LOOP * 



LEVEL 5 RESET 



* WAIT 35 * 

* INTERRUPT 5 LEVEL* 

* RESET DURING AUTO* 

* SCOPE LOOP. * 

* PUSH START TO GO * 

* TO WAIT 1. * 
******************** 
******************** 

* WAIT 17 * 

* PICKED ADDR BIT * 

* 15. PUSH START * 

* FOR SCOPE LOOP * 
******************** 

MDX ERROR 



******************** 

* WAIT IC * 

* RUN TRIGGER WILL * 

* NOT SET DURING A * 

* WAIT OPERATION * 
******************** 

RESTORE WAIT OP 

MDX BUSY 

ALLOW ERROR TRAP 

RESTORE LEVEL 4 



3A806140 

3A806150 

3A806160 

3A806170 

3A806180 

3A806190 

3A806200 

3A806210 

3A806220 

3A806230 

3A806240 

3A806250 

3A806260 

3A806270 

3A806280 

3A806290 

3A806300 

3A806310 

3A806320 

3A 806 3 30 

3A806340 

3A80&350 

3A806360 

3A806370 

3A806380 

3A806390 

3A806400 

3A806410 

3A806420 

3A806430 

3A806440 

3A806450 

3A806460 

3A806470 

3A806480 

3A806490 

3A806500 

3A806510 

3A806520 

3A806530 

3A806540 

3A806550 

3A806560 

3A806570 

3A806580 

3A806590 

3A806600 

3A806610 

3A806620 

3A806630 

3A806640 

3A806650 

3A806660 

3A806670 

3A806680 

3A806690 

3A806700 

3A806710 

3A806720 

3A806730 

3A806740 

3A806750 

3A806760 

3A806770 

3A806780 

3A806790 

3A806800 

3A806&10 
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07D8 
07DA 


6000 
4C40 


OOOC 
06DC 


'r 


STX 

BOSC 


LI 
L 


/OOOC 
BUSY 


07DC 
07DD 
07DF 
07E1 


0000 
OCOO 
4C40 
3018 


0A5A 
07E1 


BAD12 

M0D18 

* 


DC 
XIO 
BOSC 
WAIT 


L 
L 




SENSE 
M0018 
/18 


07E2 
07E4 
07E6 


6580 
6000 
4C00 


0A97 
07E1 
0716 


* 

3^ 


LDX 
STX 
BSC 


11 
LI 
L 


MOFYG 
M0D18 
FDCYC 


07E8 
07E9 
07EB 
07E0 


0000 
OCOO 
4C40 
3019 


0A5A 
07ED 


BA014 
H0D19 


DC 
XIO 
BOSC 
WAIT 


L 

L 




SENSE 
MOD 19 
/19 


07EE 
07F0 
07F2 


6580 
6D00 
^COO 


0A98 
07ED 
0716 




LDX 
STX 
BSC 


U 
LI 

L 


MOFYH 
M0D19 
FDCYC 


07F4 
07F5 
07F7 
07F9 


0000 
OCOO 
4C40 
301A 


0A5A 
07F9 


NOADR 

MODIA 
* 
* 
* 

* 


DC 

XIO 

BOSC 

WAIT 


L 
L 




SENSE 
MODIA 
/lA 


07FA 
07FC 
07FE 


6580 
6D00 
4C00 


0A99 
07F9 
0716 


LDX 
STX 
BSC 


U 

LI 
L 


MOFYJ 
MODIA 
FDCYC 



ERROR TRAP 



* WAIT 18 * 

* DROPPED ADDR BIT * 

* 12. PUSH START * 
« FOR SCOPE LOOP * 

MDX ERROR 



SCOPE LOOP 



******************** 

* WAIT 19 * 

* PICKED ADDR BIT * 

* 14. PUSH START * 

* FOR SCOPE LOOP * 
******************** 

MDX ERROR 



SCOPE LOOP 



******************** 

* WAIT lA * 

* NO ADDR TRANSFER * 

* PUSH START FOR * 

* SCOPE LOOP. * 
******************** 

MDX ERROR 



SCOPE LOOP 



********************************************* 

* OP/CODE 0, WAIT 0. NO READOUT OF BSI * 

* OR INTERRUPT ADDRESS. * 
********************************************* 

* 



0800 
0802 
0804 
0805 
0807 
0809 
080B 
08 00 
080E 
080F 
0811 
0813 
0815 



0400 
OCOO 
1000 
9400 
4C18 
4C00 
OCOO 
1000 
6100 
6000 
4C04 
4C00 
3003 



OA80 
0A5A 

0A80 
080B 
06EA 
0A5A 



0A80 
0815 
06EF 



* 
DSWCK 



WAIT3 

* 
* 



STO 

XIO 

NOP 

S 

BSC 

BSC 

XIO 

NOP 

LDX 

STX 

BSC 

BSC 

WAIT 



DSWl 
SENSE 

OSWl 

0SWCK&11«& 
TESTie2 
SENSE 



1 
LI DSWl 
L WAIT3,E 
L TEST167 
3 



0816 4C00 06EA 



BSC L TEST1&2 



* 
* 
* 
* 
* 
* 
* 



STORE DSW 
SENSE FOR READY 

SUBTRACT LAST DSH 

DSW CHANGED 
CHECK FOR READY 



RESET STORED DSW 
NOT READY 
READY 
******************** 

* WAIT 3 * 

* READER NOT READY * 
******************** 

READER READY 

******************** 

* 

* 

* 

* 

* 

* 



WAIT 2 * 
DESIRED NUMBER OF* 
LOOP PASSES, WHILE* 
IN SCOPE LOOP. * 
PUSH START TO * 
ANOTHER SCOPE * 
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3A806820 

3A806830 

3A806840 

3A806850 

3A806860 

3A806870 

3A806880 

3A806890 

3A806900 

3A806910 

3A806920 

3A806930 

3A806940 

3A806950 

3A806960 

3A806970 

3A806980 

3A806990 

3A807000 

3A807010 

3A807020 

3A807030 

3A807040 

3A807050 

3A807060 

3A807070 

3A807080 

3AB07090 

3A807100 

3A807110 

3A807120 

3A807130 

3A807140 

3A807150 

3A807160 

3A 807 170 

3A807180 

3A807190 

3A807200 

3A807210 

3A807220 

3A807230 

3A807240 

3A807250 

3A807260 

3A807270 

3A807280 

3A807290 

3A807300 

3A807310 

3A807320 

3A807330 

3A807340 

3A807350 

3A807360 

3A807370 

3A807380 

3A807390 

3A807400 

3A807410 

3A807420 

3A807430 

3Ae07440 

3A807450 

3A807460 

3A807470 

3A807480 

3A807490 
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0818 3002 

0819 6100 
081A 6D00 0A7E 
081C 4C00 0716 



081E 0000 
081F OCOO 0A5A 
0821 OCOO 0A66 
0823 OCOO 0A5C 
0825 4C40 0827 



0827 3034 

0828 4C00 0503 



082A 
082B 
082D 
082F 
0831 
0833 
0835 
0837 
0839 
083B 
083D 
083F 
0841 
0843 
0845 
0847 



6100 
6D0O 
6500 
6000 
6500 
6D00 
6500 
6D00 
6500 
6D00 
6500 
6D00 
6500 
6D00 
6500 
6DO0 



0A7C 
0898 
0008 
092E 
0009 
0943 
OOOA 
0958 
OOOB 
08B3 
OOOC 
096D 
0000 
0982 
0000 



0849 6100 
084A 6200 
084B 6300 

084C OCOO 0A5A 
084E 1801 

084F 4C04 084C 

0851 OCOO 0A68 

0853 C400 0A79 

0855 180C 

0856 4C04 08DB 

0858 6780 0A7F 

085A OCOO 0A5A 

085C 4C04 0880 

08bE OCOO 0A72 

0860 73FF 

0861 70FE 



2 

1 

LI LPCNT 
L FDCYC 





SENSE 

CONSL 

SENPT 

M0D20 



WAIT2 WAIT 

LDX 

STX 

BSC 
* 
* 
L00P4 DC 

XIO 

XIO 

XIO 

BOSC 
* 
* 
* 
* 
* 
* 
* 
M0D20 WAIT /34 

BSC L MAPIT 
* 
* 

********************** 
* INTERRUPT VECTOR SET 
********************** 

SETUP LDX 1 

LI GDCNT 
LI INTOG 
LI /0008 
LI INTOl 
LI /0009 
LI INT02 
LI /OOOA 
LI 



STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 

* 

RESET LDX 
LDX 
LDX 

XIO 

SRA 

BSC 

XIO 

LD 

SRA 

BSC 

* 

START LDX 
XIO 
BSC 
XIO 

* 

LESSl MDX 
MDX 



INT03 
LI /OOOB 
LI INT04 
LI /OOOC 
LI INT05 
LI /GOOD 
LI ADR12 
LI /OOOO 



* 
BUZY 







SENSE 

1 

BUZY,E 

BITSW 

BITSl 

12 

CNTOK,E 



13 DELAY 



SENSE 

CKRDY,E 

RESTR 

-1 

LESSl 
********************* 
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* LOOP PASS. * 


3A807500 




******************** 


3A807510 




STOP SCOPE LOOP 


3A807520 
3A807530 




RESET LOOP COUNT 


3A807540 




CONTINUE TEST 


3A807550 
3A807560 




******************** 


3A807570 




* LEVEL 4 AUTO * 


3A807580 




* LEVEL RESET LOOP * 


3A807590 




* * 


3AB07600 




* * 


3A807610 




******************** 


3A807620 




* WAIT 34 * 


3A807630 




* INTERRUPT 4 LEVEL* 


3A807640 




* RESET DURING AUTO* 


3A807650 




* SCOPE LOOP. * 


3A807660 




* PUSH START TO GO * 


3A807670 




* TO WAIT 1. * 


3A807680 




******************** 


3A807690 
3A807700 
3A807710 
3A807720 
3A807730 




*********************** 


3A807740 




UP. * 


3A807750 




*********************** 


3A807760 
3A807770 




RESET GOOD PASS CNT 


3A807780 
3A807790 
3A807800 
3A807810 
3A807820 
3A807830 
3A807840 
3A807850 
3A807860 
3A807870 
3A807880 
3A807890 
3A807900 
3A807910 
3A807920 
3A807930 
3A807940 
3A807950 
3A807960 
3A807970 




SENSE DSW 


3A807980 




SET UP TO CHK BIT 14 


3A807990 




CHECK FOR BUSY 


3A808000 




SENSE BIT SWITCHES 


3A808010 




LOAD BIT SWITCHES 


3A808020 




CHK FOR WAIT 1 OPT 


3A808030 




SET UP FOR RESTORE 


3A808040 
3A808050 




SET UP DELAY 


3A808060 




SENSE FOR READY 


3A808070 




CHECH FOR READY 


3A808080 
3A808090 
3A808100 
3A808110 
3A808120 




************************ 


3A808130 




* 


3A808140 




IT 21 * 


3A808150 




* 


3A808160 




GENERATED WITHIN 500 * 


3A808170 
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0862 3021 



0863 
0864 
0866 
0868 
086A 
08 60 
08 6E 
0870 
0872 
0874 
0876 



6100 
6D00 
6500 
6D00 
4000 
0400 
8400 
D400 
9400 
4010 
70D5 



0A7C 
1000 
0862 
09FE 
0A7E 
0A83 
0A7E 
0A87 
0877 



0877 0400 0A7D 



0879 3002 

087A 6200 
0878 6E00 0A7E 
0870 6E00 0A70 
087F 7000 



0880 
0882 
0884 
0886 
0888 
088A 
088C 
088D 
088F 
0891 



D400 
0000 
9400 
4018 
4000 

ocoo 

6100 
6D00 
4004 
4000 



0A80 
0A5A 
0A80 
088A 
085A 
0A5A 

0A80 
0893 

085E 



* MSEC. AFTER A READS WAS GIVEN. THIS SHOULD* 

* HAVE BEEN ENOUGH TIME TO RECEIVE 80 COLUMN* 

* INTERRUPTS AND AN END OP INTERRUPT. * 

* PUSH START FOR SCOPE LOOP. * 

*!(c*;Jc«******:ji**««* ************ **************** 
* 

M0D21 WAIT /21 NO LEV. OR 4 INTRPT 

* 

********************************************* 



SCOPE LOOP 



TO USE SCOPE LOOP, PRESS START. THIS WILL 
FEED CARDS AT A 2 OARO/SEO RATE WITH 
A HALT AFTER 100 CARDS. 

IF AN INTERRUPT IS GENERATED DURING THIS 
SCOPE LOOP, A WAIT WILL IDENTIFY IT. * 

HAKE SURE THERE IS A SUFFICIENT AMOUNT OF * 
BLANK CARDS IN READER TO ALLOW FURTHER * 

CHECKING. * 

********************************************* 

* 



CARDS LDX 
STX 
LDX 
STX 
BSC 

RETRN LD 
A 

STO 
S 

BSC 
MOX 



TOTAL 



1 

LI GDCNT 
LI /lOOO 
LI M0D21 

CNTIT 

LPCNT 

KOOl 

LPCNT 

KlOO 

CHECK, - 

BUZY 



RESET GOOD PASS CNTR 

NOP 

ALLOW LOOP 

CHK COUNT OPTION 

LOOP CARD COUNTER 

ADD 1 

SUBTRACT 100 
100 CARDS FED 
CHECK FOR BUSY 

L OLONT LOAD COLUMN COUNT 

***********************«*****«*************#* 

* * 

* WAIT 2 * 

* * 

* NORMAL WAIT AFTER DESIRED NUMBER OF CARDS * 

* HAVE BEEN READ. PRESS START TO READ THE * 

* NUMBER OF BLANK CARDS DESIRED * 
********************************************* 
* 



CHECK LD 



0893 3003 

0894 OCOO 0A5A 



WAIT 

* 

LDX 
STX 
STX 
MOX 

* 

OKRDY STO 
XIO 
S 

BSC 
BSC 
XIO 
LDX 
STX 
BSC 
BSC 

* 

* 

* 

* 

* 

NORDY WAIT 
XIO 



2 
L2 LPCNT 
L2 CLCNT 
BUZY 



DSWl 
SENSE 
DSWl 
CKRDY&10.&- 



START62 
SENSE 
1 
LI DSWl 
L NORDY, E 
L START£6 



3 
SENSE 



100 CARDS FED 



RESET LOOP COUNT 
RESET COLUMN COUNT 
RESTART LOOP CHECK 

STORE DSW 
SENSE FOR READY 
SUBTRACT LAST DSW 

DSW CHANGED 
RESET DSW 

RESET STORED DSW 
NOT READY 
READY 

*^ -^ Jlr -,•, -J, ~tf -Ar ■.ft ■Jr -fr •,'r -f-- 'f' -Jlr t*' •f' ■^ •'' •f' 

* WAIT 3 * 

* READER NOT READY * 

ft ¥ * 1* 'T -r- 1- '.- 3^ f -v V -o -<"t- 1- -v- -.- f 

READER NOT READY 
SENSE 6 RESET 



3A808180 

3A808190 

3A808200 

3A808210 

3A808220 

3A808230 

3A808240 

3A808250 

3A808260 

3A808270 

3A808280 

3A808290 

3A808300 

3A808310 

3A808320 

3A808330 

3A808340 

3A808350 

3A808360 

3A808370 

3A808380 

3A808390 

3A808400 

3A808410 

3A808420 

3A808430 

3A808440 

3A808450 

3A808460 

3A808470 

3A808480 

3A808490 

3A808500 

3A808510 

3A808520 

3A808530 

3A808540 

3A808550 

3A808560 

3A808570 

3A808580 

3A808590 

3A808600 

3A808610 

3A808620 

3A808630 

3A808640 

3A808650 

3A808660 

3A808670 

3A808680 

3A808690 

3A808700 

3A808710 

3A808720 

3A808730 

3A808740 

3A808750 

3A808760 

3A808770 

3A8087B0 

3A808790 

3A808800 

3A808810 

3A808820 

3A808830 

3A808840 

3A808850 



0896 4C00 085A 

0898 0000 

0899 OCOO 0A5A 
089B 7401 0A7D 
089D 6500 08B3 
089F 6D0O OOOC 
08A1 6680 0A9C 
08A3 6ABE 
08A4 4C40 0BA6 

08A6 OCOO 0A76 
08A8 4000 0860 



08AA 3022 



08AB 6500 0001 
08AD 6D00 08AA 
08AF 6100 
08B0 6D00 0A7D 
08B2 70B0 



08B3 
08B4 
08B6 
08B8 
08BA 
08BC 
08BE 
08C0 
08C2 
0804 
08C6 
0808 
08CA 



0000 
0000 
7401 
6500 
6D00 
6500 
6D00 
0400 
9400 
4058 
4C68 
4040 
C400 



0A5A 
0A7C 
3021 
0862 
3022 
08AA 
0A7D 
0A86 
08DB 
0922 
080A 
0A7D 



08CC 3023 
08CD 6100 
08CE 6D00 0A7D 
08D0 6680 0A9D 
08D2 6E00 08CC 
08D4 4C40 0863 

08D6 6100 
08D7 6D00 0A7D 
08D9 4000 0860 

08DB 6500 3021 
08DD 6D00 0862 



BSC 

INTOO DC 
XIO 
MDX 
LDX 
STX 
LDX 
STX 
BOSC 

« 

COLGO XIO 
BSC 



START&2 



SENSE 

CLCNT, &1 

INT04 

LI /OOOC 

12 MDFY3 

2 M0D21 

L COLGO 



L 
L 
LI 



READER READY 



ADD 1 TO COLUMN CNT 
RESTORE LEVEL 4 VEC. 

MOX WAIT 22 
CHECK FOR LEVEL 4 
RESET LEVEL 



READ 
LESSl 



********************************************* 



WAIT 22 



AT LEAST 1 COLUMN INTERRUPT WAS GENERATED 
AND NO END OP GENERATED FOR LAST CARD. 
THE NUMBER OF COLUMNS READ IS DISPLAYED 
IN THE A REG. 

PUSH START FOR SCOPE LOOP. 
********************************************* 

MOD22 WAIT /22 NO LEVEL 4 RECIEVED 

********************************************* 

* SCOPE LOOP * 

********************************************* 



LDX 
STX 
LDX 
STX 
MDX 

* 

INT04 DO 
XIO 
MDX 
LDX 
STX 
LDX 
STX 
LD 
S 

BOSC 
BOSC 
BOSC 

CLERR LD 



LI /OOOl 
LI MOD22 

1 
LI CLCNT 
M0D21S1 



NOP 

ALLOW LOOP 

RESET COLUMN COUNT 

BRANCH TO LOOP 




L SENSE 
L GDCNT, &1 
LI /3021 
LI M0D21 
LI /3022 
LI M0D22 

CLCNT 

K080 

CNTOK,£- 

M0D24,Z6 

CLERR 

OLONT 



ADD 1 TO GOOD PASS 

RESTORE WAIT 21 

RESTORE WAIT 22 
LOAD COLUMN COUNT 
CHECK FOR 80 COLUMNS 
CHECKED OK 
BRANCH LESS THAN 80 

LOAD COLUMN COUNT 
********************************************* 
* 
* 
* 
* 
* 
* 
********************************************* 



WAIT 23 * 

« 

MORE THAN 80 COLUMN INTERRUPTS RECEIVED * 
WHEN END OP INTERRUPT WAS GENERATED. NUMBER* 
OF COLUMN INTERRUPTS IS DISPLAYED IN A REG* 
PUSH START FOR SCOPE LOOP. * 



M0D23 WAIT 
LDX 
STX 
LDX 
STX 
BOSC 

« 

HOPIT LDX 
STX 
BSC 

CNTOK LDX 
STX 



/23 
1 
LI CLCNT 
12 MDFY4 
L2 M0D23 
L CARDS 

1 
LI CLCNT 
L LESSl 

LI /3021 
LI M0D21 



MORE THAN 80 COLUMNS 
RESET COLUMN COUNT 



ALLOW LOOP 
BRANCH TO LOOP 



RESET COLUMN COUNT 



RESTORE WAIT 21 



3A808860 

3A808870 

3A808880 

3A808890 

3A808900 

3A808910 

3A808920 

3A808930 

3A808940 

3A808950 

3A80B960 

3A808970 

3A808980 

3A808990 

3A809000 

3A809010 

3A809020 

3A 809030 

3A809040 

3A809050 

3A809060 

3A809070 

3A809080 

3A809090 

3A809100 

3A809110 

3A809120 

3A809130 

3A809140 

3A809150 

3A809160 

3A809170 

3A8091&0 

3A809I90 

3A809200 

3A809210 

3A809220 

3A809230 

3A809240 

3A809250 

3A809260 

3A809270 

3A809280 

3A809290 

3A809300 

3A809310 

3A809320 

3A809330 

3A809340 

3A809350 

3A809360 

3A809370 

3A809380 

3A809390 

3A809400 

3A809410 

3A809420 

3A809430 

3A809440 

3A809450 

3A809460 

3A809470 

3A809480 

3A809490 

3A809500 

3A809510 

3A809520 

3A809530 
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08DF 





6500 


3022 


LDX 


LI 


/3022 


08E1 





6D00 


08AA 


STX 


H 


M0D22 


08E3 





6500 


3023 


LDX 


LI 


/3023 


08E5 





6D00 


08CC 


STX 


LI 


M0D23 


08E7 





6500 


3024 


LDX 


LI 


/3024 


08E9 





6000 


0924 


STX 


LI 


M0D24&2 


08E8 





6500 


3025 


LDX 


LI 


/3025 


08ED 





6D00 


0939 


STX 


LI 


M0025 


08EF 





6500 


3026 


LDX 


LI 


/3026 


08F1 





6D00 


094E 


STX 


LI 


M0D26 


08F3 





6500 


3027 


LDX 


LI 


/3027 


08F5 





6D00 


0963 


STX 


LI 


M0D27 


08E7 





6500 


3028 


LDX 


LI 


/3028 


08F9 





6DO0 


0978 


STX 


LI 


H0D28 


08FB 





6500 


3029 


LDX 


LI 


/3029 


08F0 





6D00 


098D 


STX 


LI 


M0D29 


08FF 





C40D 


0A7C 


LD 


L 


GOCNT 


0901 





9400 


0A84 


S 


L 


KOlO 


0903 





4C10 


0913 


BSC 


L 


WAITA, - 


0905 





6100 




LDX 


1 





0906 





6000 


0A7D 


STX 


LI 


CLCNT 


0908 





6D00 


0A7E 


STX 


LI 


LPCNT 


090A 





OCOO 


0A68 


XIO 


L 


BITSW 


090C 





C400 


0A79 


LD 


L 


BITS! 


09 OE 





180C 




SRA 




12 


090F 





4C04 


0914 


BSC 


L 


WAITA£1,E 


0911 





4C00 


082D 


BSC 

* 
* 
* 
WAITA WAIT 


L 


SETUP63 


0913 





3004 






4 



0914 
0915 
0917 
0919 
091B 
09 ID 
091E 
0920 



6100 
6D00 
6000 
OCOO 
C400 
180C 
4C04 
4C00 



0A70 
0A7C 
0A68 
0A79 

0503 
06AF 



RESTORE WAIT 22 

RESTORE WAIT 23 

RESTORE WAIT 24 

RESTORE WAIT 25 

RESTORE WAIT 26 

RESTORE WAIT 27 

RESTORE WAIT 28 

RESTORE WAIT 29 
LOAD CARD COUNT 
SUBTRACT 10 
CHK NUMBER OF PASSES 

RESET COLUMN COUNT 
RESET LOOP CARD CNT 
SENSE BIT SWITCHES 
LOAD BIT SWITCHES 
CHK FOR WAIT 1 OPT 
RESTORE/GO TO WAIT 1 
NOT 10 PASSES 

* WAIT 4 « 

* DEVICE TESTED, * 

* * RAN SUCCESSFUL. * 

;j:^c***»*****««** ************** **************** 

* * 

* RERUN * 

* * 

* TO RERUN PROGRAM PRESS START. * 

* * 
********************************************* 

LDX 1 
STX LI CLCNT 
STX LI GDCNT 



RESET COLUMN COUNT 
RESET CARD COUNT 



XIO 
LD 
SRA 
M0D12 BSC 
BSC 



BITSW 

BITS! 

12 

MAPIT.E 

CLRIX 



0922 C400 0A7D 



RERUN PROGRAM 



LOAD COLUMN COUNT 



WAIT 24 



M0D24 LD L CLCNT 
********************************************* 

« 
* 
* 
* 

* 
* 
* 



* 
* 
* 
LESS THAN 80 COLUMN INTERRUPTS RECEIVED * 
WHEN END OP INTERRUPT WAS GENERATED. NUMBER* 
OF COLUMN INTERRUPTS IS DISPLAYED IN A REG* 
PUSH START FOR SCOPE LOOP. * 

********************************************* 



0924 3024 



0925 
0926 
0928 
092A 
092C 



6100 

6D00 0A7D 
6680 0A9E 
6E00 0922 
4C00 0863 



092E 0000 
092F OCOO 0A5A 



WAIT 

* 

LDX 
STX 
LDX 
STX 
BSC 

♦ 

INTOl DC 
XIO 



/24 

1 
LI CLCNT 
12 MDFY5 
L2 M0D24 
L CARDS 


L SENSE 



RESET COLUMN COUNT 



ALLOW LOOP 
BRANCH TO LOOP 

INTERRUPT 1 



3A809540 

3A809550 

3A809 560 

3A809570 

3A809580 

3A809590 

3A809600 

3A809610 

3A809620 

3A809630 

3A809640 

3A809650 

3A809660 

3A809670 

3A809680 

3A809690 

3A809700 

3A8097XO 

3A809720 

3A809730 

3A809740 

3A 809750 

3A809760 

3A809770 

3A809780 

3A809790 

3A809800 

3A809810 

3A809820 

3A809830 

3Ae09840 

3A809850 

3A809 860 

3A809870 

3A809880 

3A809890 

3A809900 

3A809910 

3A809920 

3A809930 

3A809940 

3A809950 

3A809960 

3A809970 

3A809980 

3A809990 

3A810000 

3A810010 

3A810020 

3A810030 

3A810040 

3A810050 

3A810060 

3A810070 

3A810080 

3A810090 

3A810100 

3A810110 

3A810120 

3A810130 

3A810140 

3A810150 

3A810160 

3A810170 

3A810180 

3A810190 

3A810200 

3A8I0210 



0931 C400 0A7D 
0933 6600 092E 
0935 6E00 OOOC 
0937 4C40 0939 



jSsI:********* 



LD L CLCNT LOAD COLUMN COUNT 

LDX L2 INTOl 

STX L2 /OOOC 

BOSC L M0D25 
******************************* 
* 

* WAIT 25 
* 

* INTERRUPT GENERATED, CAUSED A LEVEL 1 

* ADDRESS TO BE GENERATED. 

* PUSH START FOR SCOPE LOOP. 
************************************** 



0939 3025 

093A 6100 
093B 6000 0A7D 
093D 6680 0A9F 
093F 6E00 0939 
0941 4C00 0863 

0943 0000 

0944 OCOO 0A5A 
0946 C400 0A7D 
0948 6600 0943 
094A 6E00 OOOC 
094C 4C40 094E 



LEV PICKED BIT 15 

RESET COLUMN COUNT 

ALLOW LOOP 
ALLOW LOOP 
BRANCH TO LOOP 

INTERRUPT 2 

LOAD COLUMN COUNT 



0963 3027 

0964 6100 

09 65 6000 0A7D 

0967 6680 OAAl 

0969 6E00 0963 
096B 4C00 0863 

096D 0000 

096E OCOO 0A5A 

0970 C400 0A7D 
0972 6600 096D 



MOD25 WAIT /25 

* 

LDX 1 

STX LI CLCNT 

LDX 12 M0FY6 

STX L2 M0D25 

BSC L CARDS 
* 
INT02 DC 

XIO L SENSE 

LO L CLCNT 

LDX L2 INT02 

STX L2 /OOOC 

BOSC L M0D26 
********************************************* 

* * 

* WAIT 26 * 

* * 

* INTERRUPT GENERATED, CAUSED A LEVEL 2 * 

* ADDRESS TO BE GENERATED. * 

* PUSH START FOR SCOPE LOOP. * 
********************************************* 

LEV PICKED BIT 14 

RESET COLUMN COUNT 
ALLOW LOOP 
BRANCH TO LOOP 
INTERRUPT 3 
LOAD COLUMN COUNT 



********************************************* 

* * 

* WAIT 27 * 

* * 

* INTERRUPT GENERATED, CAUSED A LEVEL 3 * 

* ADDRESS TO BE GENERATED. * 

* PUSH START FOR SCOPE LOOP. * 
********************************************* 

LEV PICKED 14615 



094E 





3026 




M0D26 

* 


WAIT 




/26 


094F 





6100 






LDX 


I 





0950 





6000 


0A7D 




STX 


LI 


CLCNT 


0952 





6680 


OAAO 




LDX 


12 


MDFY7 


0954 





6E00 


094E 




STX 


L2 


M0D26 


0956 





4C00 


0863 


* 


BSC 


L 


CARDS 


0958 





0000 




INT03 


DC 







09 59 





OCOO 


0A5A 




XIO 


L 


SENSE 


095B 





C400 


0A7D 




LD 


L 


CLCNT 


095D 





6600 


0958 




LDX 


L2 


INT03 


095F 





6E00 


OOOC 




STX 


L2 


/OOOC 


0961 





4C40 


0963 




BOSC 


L 


M0D27 



M0D27 


WAIT 




/27 


* 










LDX 


1 







STX 


LI 


CLCNT 




LDX 


12 


MDFY8 




STX 


L2 


M0D27 




BSC 


L 


CARDS 


* 
INT05 


DC 









XIO 


L 


SENSE 




LO 


L 


CLCNT 




LDX 


L2 


INT05 



RESET COLUMN COUNT 



ALLOW LOOP 



BRANCH TO LOOP 



INTERRUPT 5 



LOAD COLUMN COUNT 



3A810220 

3A810230 

3A810240 

3A810250 

3A810260 

3A810270 

3A810280 

3A810290 

3A810300 

3A810310 

3A810320 

3A810330 

3A810340 

3A810350 

3A810360 

3A810370 

3A810380 

3A810390 

3A810400 

3A81041() 

3A810420 

3A810430 

3A810440 

3A810450 

3A810460 

3A810470 

3A810480 

3A810490 

3A810500 

3A810510 

3A810520 

3A810530 

3A810540 

3A810550 

3A810560 

3A810570 

3A810580 

3A810590 

3A810600 

3A810610 

3A810620 

3A810630 

3A810640 

3A810650 

3A810660 

3A810670 

3A810680 

3A810690 

3A810700 

3A810710 

3A810720 

3A81O730 

3A810740 

3A810750 

3A810760 

3A810770 

3A810780 

3A810790 

3A810800 

3A810810 

3A810820 

3A810830 

3A810840 

3A810850 

3A810860 

3A810870 

3A810880 

3A810890 



DATE 
EC NO. 



01MAY66 
415490B 



15N0V66 
419605 
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420317 



15FEB68 
420403 
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01MAY66 
415490B 



15N0V66 
419605 



15JUN67 
420317 



15FEB68 
420403 
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0974 6E00 OOOC 
0976 4C40 0978 



STX L2 /OOOC 
BOSC L M0D28 
******************************************** 

« 

* WAIT 28 
* 

* INTERRUPT GENERATED, CAUSED A LEVEL 5 

* ADDRESS TO BE GENERATED. 

* PUSH START FOR SCOPE LOOP. 

LEV PICKED 13£,15 



RESET COLUMN COUNT 



0978 


3028 




M0D28 


WAIT 




/28 


0979 


6100 






LDX 


1 





097A 


6000 


0A7D 




STX 


LI 


CLCNT 


097C 


6680 


0AA2 




LDX 


12 


HDFY9 


09 7E 


6E00 


0978 




STX 


L2 


M0D28 


0980 


4C00 


0863 


^ 


BSC 


L 


CARDS 


0982 


0000 




ADR 12 


DC 







0983 


OCOO 


0A5A 




XIO 


L 


SENSE 


0985 


C400 


0A7D 




LD 


L 


CLCNT 


0987 


6600 


0982 




LDX 


L2 


ADR12 


0989 


6E00 


OOOC 




STX 


L2 


/OOOC 


098B 


4C40 


0980 




BOSC 


L 


M0D29 



ALLOW LOOP 



BRANCH TO LOOP 



098D 3029 



******************************************** 
* 

* WAIT 29 
* 

* BIT 12 WAS DROPPED WHEN INTERRUPT LEVEL 

* MAS GENERATED. 

* PUSH START FOR SCOPE LOOP. 

* 

MOD29 WAIT /29 INT DROPPED BIT 



12 





098E 





6100 




LDX 


1 







098F 





6000 0A7D 




STX 


LI 


CLCNT 




0991 





6680 0A9B 




LDX 


12 


MDFY2 




0993 





6E00 098D 




STX 


L2 


M0029 




0995 





4C00 0863 


•^ 


BSC 


L 


CARDS 




0997 





4C00 0806 


JUMP 


BSC 


L 


HOP IT 




0999 





OCOO 0A68 


CNTCK 


XIO 


L 


BITSW 




099 B 





C400 0A79 




LD 


L 


BITSl 




099D 





4C04 09B0 




BSC 


L 


KNTOl, E 




099F 





1801 




SRA 




1 




09A0 





4C04 09B8 




BSC 


L 


KNT02,E 




09A2 





1801 




SRA 




1 




09A3 





4C04 09C0 




BSC 


L 


KNT03,E 




09 A5 





1801 




SRA 




1 




09A6 





4C04 09C8 




BSC 


L 


KNT04,E 




09A8 





6500 0A87 




LDX 


LI 


KlOO 




09 AA 





6000 06FF 




STX 


LI 


NUMBRSl 




09AC 





0500 0724 




STO 


LI 


NUMCK61 




09AE 





4C00 09D0 


* 


BSC 


L 


CKOVR 




09BO 





6500 0A84 


KNTOl 


LDX 


LI 


KOlO 




09B2 





6D00 06FF 




STX 


LI 


NUMBR&1 




09B4 





D500 0724 




STO 


LI 


NUMCKGl 




09B6 





4C00 09D0 


jje 


BSC 


L 


CKOVR 




09B8 





6500 0A85 


KNT02 


LDX 


LI 


K050 




09BA 





6000 06FF 




STX 


LI 


NUMBRSl 




09BC 





0500 0724 




STO 


LI 


NUMCK&1 




09 BE 





4C00 09D0 


^ 


BSC 


L 


CKOVR 




09C0 





6500 0A88 


KNT03 


LDX 


LI 


K250 


DATE 


01MAY66 15N0V66 


15JUN67 


15FEB68 


EC NO. 


415490B 419605 


420317 


420403 



RESET COLUMN COUNT 
ALLOW LOOP 
BRANCH TO LOOP 



READ BIT SWITCHES 
LOAD BIT SWITCHES 
SELECT COUNT OF 10 
CHK COUNT OF 50 
SELECT COUNT OF 50 
CHK COUNT OF 250 
SELECT COUNT OF 250 
CHK COUNT OF 25000 
SEL COUNT OF 25000 

SET UP CNT OF 100 
SET UP LOOP COUNT 



SET UP CNT OF 10 
SET UP LOOP COUNT 



SET UP CNT OF 50 
SET UP LOOP COUNT 



3A810900 

3A810910 

3A810920 

3A810930 

3A810940 

3A810950 

3A810960 

3A810970 

3A8109B0 

3A810990 

3A811000 

3A811010 

3A811020 

3A811030 

3A811040 

3A811050 

3A811060 

3A811070 

3A811080 

3A811090 

3A811100 

3A811110 

3A811120 

3A811130 

3A811140 

3A811150 

3A811160 

3A811170 

3A811180 

3A811190 

3A811200 

3A811210 

3A811220 

3A811230 

3A811240 

3A811250 

3A811260 

3A811270 

3A811280 

3A811290 

3A811300 

3A811310 

3A811320 

3A811330 

3A811340 

3A811350 

3A811360 

3A811370 

3A811380 

3A811390 

3A811400 

3A811410 

3A811420 

3A811430 

3A811440 

3A811450 

3A811460 

3A811470 

3A811480 

3A811490 

3A811500 

3A811510 

3A811520 

3A811530 

3A811540 

3A811550 

3A811560 

3A811570 



PKOG ID 
PAGE 



09C2 6D00 06FF 




STX 


LI NUMBRSl 


SET UP CNT OF 250 


3A811580 


09C4 0500 0724 




STO 


LI NUMCK&l 


SET UP LOOP COUNT 


3A811590 


09C6 4C00 09D0 


* 


BSC 


L CKOVR 




3A811600 
3A811610 


09C8 6500 0A89 


KNT04 


LDX 


LI KMAX 




3A811620 


09CA 6D00 06FF 




STX 


LI NUMBREl 


SET UP CNT OF 25000 


3A811630 


09CC D500 0724 




STO 


LI NUMCKei 


SET UP LOOP COUNT 


3A811640 


09CE 4C00 09D0 


« 


BSC 


L CKOVR 




3A811650 
3A811660 


09D0 OCOO 0A68 


CKOVR 


XIO 


L BITSW 


READ BIT SWITCHES 


3A811670 


0902 C400 0A79 




LD 


L BITSl 


LOAD BIT SWITCHES 


3A811680 


09D4 1804 




SRA 


4 


DELAY CHANGE 


3A811690 


09D5 4C04 09E6 




BSC 


L NODLY, E 


NO DELAY SELECTED 


3A811700 


09D7 1801 




SRA 


1 


CHECK FOR DELAY 


3A811710 


09D8 4C04 09EC 




BSC 


L DLYOl, E 


SELECTED DELAY 


3A811720 


09DA 1801 




SRA 


1 


CHECK FOR DELAY 


3A811730 


09DB 4C04 09F2 




BSC 


L DLY02,E 


SELECTED DELAY 


3A811740 


09DD 1801 




SRA 


1 


CHECK FOR DELAY 


3A811750 


09DE 4C04 09F8 




BSC 


L DLY03,E 


SELECTED DELAY 


3A811760 


09E0 6500 0A7F 




LDX 


LI DELAY 


SET DELAY FOR .5 SEC 


3A811770 


09E2 6D00 06E9 




STX 


LI TESTiei 


SET UP DELAY 


3A811780 


09E4 4C00 06DC 


* 


BSC 


L BUSY 




3A811790 
3A811800 


09E6 6500 0A82 


NODLY 


LDX 


LI KOOO 


LOAD ZERO 


3A811810 


09E8 6D00 06E9 




STX 


LI TEST161 


SET UP NO DELAY 


3A811820 


09EA 4C00 06DC 


* 


BSC 


L BUSY 




3A811830 
3A811840 


09EC 6500 0A8A 


DLYOl 


LDX 


LI TIME! 




3A811850 


09EE 6000 06E9 




STX 


LI TEST161 


SET UP DELAY 


3A811860 


09F0 4C00 06DC 


* 


BSC 


L BUSY 




3A811870 
3A811880 


09F2 6500 0A8B 


DLY02 


LDX 


LI TIME2 




3A811890 


09F4 6D00 06E9 




STX 


LI TEST1&1 


SET UP DELAY 


3A811900 


09F6 4C00 06DC 


* 


BSC 


L BUSY 




3A811910 
3A811920 


09F8 6500 0A8C 


DLY03 


LDX 


LI TIME3 




3A811930 


09FA 6000 06E9 




STX 


LI TEST161 


SET UP DELAY 


3A811940 


09FC 4C00 06DC 


* 


BSC 


L BUSY 




3A811950 
3A811960 


09FE OCOO 0A68 


CNTIT 


XIO 


L BITSW 


READ BIT SWITCHES 


3A811970 


OAOO C400 0A79 




LD 


L BITSl 


LOAD BIT SWITCHES 


3A811980 


0A02 4C04 0A13 




BSC 


L CNTOl, E 


SEL CARD CNT OF 10 


3A811990 


0A04 1801 




SRA 


1 


CHK CARD CNT OF 50 


3A812000 


0A05 4C04 0A19 




BSC 


L CNT02,E 


SEL CARD CNT OF 50 


3A812010 


0A07 1801 




SRA 


1 


CHK CARD CNT OF 250 


3A812020 


0A08 4C04 OAIF 




BSC 


L CNT03,E 


SEL CARD CNT OF 250 


3A812030 


OAOA 1801 




SRA 


1 


CHK CARD CNT OF 25K 


3A812040 


OAOB 4C04 0A25 




BSC 


L CNT04,E 


SEL CARD CNT OF 25K 


3A812050 


OAOD 6500 0A84 




LDX 


LI KOlO 




3A812060 


OAOF 6000 0873 




STX 


LI T0TAL£1 


SET UP CNT OF 10 


3A812070 


OAll 4C00 0A2B 


* 


BSC 


L ENDCK 




3A812080 
3A812090 


0A13 6500 0A84 


CNTOl 


, LDX 


LI KOlO 




3A812100 


0A15 6D00 0873 




STX 


LI TOTAL&l 


SET UP CNT OF 10 


3A812110 


0A17 4C00 0A2B 


* 


BSC 


L ENDCK 




3A812120 
3A812130 


0A19 6500 0A85 


CNT02 LDX 


LI K050 




3A812140 


OAIB 6D00 0873 




STX 


LI TOTAL&l 


SET UP CNT OF 50 


3A812150 


OAID 4C00 0A2B 


* 


BSC 


L ENDCK 




3A812160 
3A812170 


OAIF 6500 0A88 


CNT03 LDX 


LI K250 




3A812180 


0A21 6D0O 0873 




STX 


LI TOTALEl 


SET UP CNT OF 250 


3A812190 


0A23 4C0O 0A2B 


* 


BSC 


L ENDCK 




3A812200 
3A812210 


OA25 6500 0A89 


CNT04 LDX 


LI KMAX 




3A812220 


0A27 6D00 0873 




STX 


LI TOTAL&l 


SET UP CNT OF 25000 


3A812230 


0A29 4C00 0A2B 


* 


BSC 


L ENDCK 




3A812240 
3A812250 



03A8-0 
9 



DATE 
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15FEB6 


EC NO. 


415490B 


419605 


420317 
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0A2B 
0A2D 
0A2F 
0A30 
0A3 2 
0A33 
0A35 
0A36 
0A3 8 
0A39 
0A3B 
0A3D 
0A3F 



OCOO 
C400 
1804 
4C04 
1801 
4C04 
1801 
4C04 
1801 
4C04 
6500 
6D00 
4C00 



0A68 
0A79 

0A41 

0A47 

0A4D 

0A53 
0A7F 
0859 
086C 



0A41 6500 0A82 
0A43 6D00 0859 
0A45 4C00 086C 

0A47 6500 0A8A 
0A49 6D00 0859 
0A4B 4C00 086C 

0A40 6500 0A8B 
0A4F 6D00 0859 
0A51 4C00 086C 

0Ab3 6500 0A8C 
0A55 6D00 0859 
0Ab7 4C00 086C 



OAbA 




0000 


0A5A 





0000 


0A5B 





1703 


0A5C 





0000 


0A50 





IFOl 


0A5E 





0000 


0A5F 





4F03 


0A60 





0000 


0A61 





2701 


0A62 





0000 


0A63 





2F01 


0A64 





0000 


0A65 





3701 


0A66 





0000 


0A67 





OFOl 


0A68 





0A79 


0A69 





3A00 


0A6A 





0000 


0A6B 





3F01 


0A6C 





0000 


0A6D 





1402 


0A6E 





0A70 


0A6F 





4E00 


0A70 





0001 


0A7I 





0000 


0A72 





0000 


0A73 





1404 


0A74 





0000 


0A75 





ICOO 


0A76 





0A78 


0A77 





1200 


0A78 




0001 


0A79 





0000 


0A7A 





0000 


0A7B 





0000 


0A7C 





0000 


0A7D 





0000 


0A7E 





0000 



ENDCK XIO 
LD 
SRA 
BSC 
SRA 
BSC 
SRA 
BSC 
SRA 
BSC 
LDX 
STX 
BSC 

* 

DLYNO LDX 
STX 
BSC 

DLAYl LDX 
STX 
BSC 



BITSW 

BITSl 

4 

DLYNOf E 

1 

DLAYl, E 

1 

DLAY2,E 

1 

DLAY3,E 
H DELAY 
LI START61 
L RETRN 



LI KOOO 
LI START61 
L RETRN 

LI TIME! 
LI STARTei 
L RETRN 



DLAY2 LDX H TIME2 



STX 
BSC 

DLAY3 LDX 
STX 
BSC 



SENSE 

SENPT 

SEN25 

DISK 

PLOT 

PRINT 

CONSL 

BITSW 

STOP 

FEED 

FEEDS 

TABLE 

RESTR 

CNTRL 

READ 

RAREA 
BITSl 
BITS2 
BITS3 
GDCNT 
CLCNT 
LPCNT 



BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 



DATE 
EC NO. 



01MAY66 
415490B 



15N0V66 
419605 



15JUN67 
420317 



LI START6I 
L RETRN 

LI TIME3 
LI STARTEI 
L RETRN 

E 


/1703 


/IFOl 


/4F03 


/2701 


/2F01 


/3701 


/OFOl 
BITSl 
/3A00 


/3F01 


/1402 
TABLE 
/4E00 
1 



/1404 


/ICOO 
RAREA 
/1200 
1 









15FEB68 
420403 



READ BIT SWITCHES 


3A812260 




LOAD BIT SWITCHES 


3A8I2270 




DELAY CHANGE 


3A812280 




NO DELAY SELECTED 


3A812290 




CHECK FOR DELAY 


3A812300 




SELECTED DELAY 


3A8I2310 




CHECK FOR DELAY 


3A812320 




SELECTED DELAY 


3A812330 




CHECK FOR DELAY 


3A812340 




SELECTED DELAY 


3A812350 




SET DELAY FOR .5 SEC 


3A812360 




SET UP DELAY 


3A812370 
3A812380 
3A812390 




LOAD ZERO 


3A812400 




SET UP NO DELAY 


3A812410 
3A812420 
3A812430 
3A812440 




SET UP DELAY 


3A812450 
3A812460 
3A812470 
3A812480 




SET UP DELAY 


3A812490 
3A812500 
3A812510 
3A812520 




SET UP DELAY 


3A812530 
3A812540 
3A812550 
3A812560 




RESET DSW 


3A812570 
3A812580 
3A812590 
3A812600 




SENSE 2501 DSW 


3A812610 
3A812620 
3A812630 
3A812640 
3A812650 
3A812660 
3A812670 
3A812680 
3A812690 
3A812700 
3A812710 
3A812720 
3A812730 
3A812740 
3A812750 
3A812760 
3A812770 
3A812780 
3A812790 
3A812800 
3A812810 




READER START 


3A812820 
3A812830 




ADVANCE TAPE 


3A812840 
3A812850 
3A812860 
3A812870 




BIT SWITCH SETTINGS 


3A812880 




LAST DEVICE SELECTED 


3A812890 




LEVEL ON BITS 


3A812900 




GOOD PASS COUNT 


3A812910 




COLUMN COUNT 


3A812920 




LOOP COUNT 


3A812930 






PROG ID 


03A8-0 




PAGE 
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0A7F 





F700 


DELAY 


DC 




/F700 




SCOPE LOOP DELAY 


3A812940 


OABO 





0000 


DSWl 


DC 













3A812950 


OAal 





0001 


ADDOl 


DC 




1 








3A812960 


0A82 





0000 


KOOO 


DC 









CONSTANT 


ZERO 


3A812970 


0A83 





0001 


KOOl 


DC 




1 




CONSTANT 


1 


3A812980 


0A84 





OOOA 


KOlO 


DC 




10 




CONSTANT 


10 


3A812990 


0A85 





0032 


K050 


DC 




50 




CONSTANT 


50 


3A813000 


0A86 





0050 


K080 


DC 




80 




CONSTANT 


80 


3A813010 


0A87 





0064 


KlOO 


DC 




100 




CONSTANT 


100 


3A813020 


0A88 





OOFA 


K250 


DC 




250 




CONSTANT 


250 


3A813O30 


0A89 





61A8 


KMAX 


DC 




/61A8 




CONSTANT 


25000 


3A813040 


0A8A 





ODEO 


TIMEl 


DC 




/ODEO 




DELAY - 1 


e>2.5 MSEC 


3A813050 


0A8B 





lEEO 


TIME2 


DC 




/lEEO 




DELAY - 


125 MSEC 


3A813060 


0A8C 





3DC0 


TIME3 


DC 




/3DC0 




DELAY - 


250 MSEC 


3A813070 


0A8D 





1000 


NOP IT 


DC 




/lOOO 








3A813080 


0A8E 





1801 


SRAOl 


DC 




/1801 








3A813090 


0A8F 





180A 


SRAIO 


DC 




/180A 








3A813100 


0A90 





180B 


SRAll 


DC 




/180B 








3A81311C 


0A91 





70E9 


MOFYA 


MDX 


X 


BUSY-MODll- 


•1 




3A813120 


0A92 





707B 


MOFYB 


MDX 


X 


GAPIT- 


-M0D12 


l-l 




3A813130 


0A93 





706B 


MOFYC 


MDX 


X 


GAPIT- 


-M0D14-1 




3A813140 


0A94 





705B 


MOFYD 


MDX 


X 


GAPIT- 


-M0D15 


i-1 




3A813150 


0A95 





704B 


MOFYE 


MDX 


X 


GAPIT- 


-MODlf 


.-1 




3A813160 


0A96 





70F4 


MOFYF 


MDX 


X 


GAPIT- 


-M0D17 


'-1 




3A813170 


0A97 





70D4 


MOFYG 


MDX 


X 


GAPIT- 


-M0D18-1 




3A8I3180 


0A98 





70C8 


MOFYH 


MDX 


X 


GAPIT- 


-M0D19-1 




3A813190 


0A99 





70BC 


MOFYJ 


MDX 


X 


GAPIT- 


-MODlA-1 




3A813200 


0A9A 





701A 


MOFYL 


MDX 


X 


CKRUN- 


-MODll-1 




3A813210 


0A9B 





7009 


MDFY2 


MDX 


X 


JUMP-M0D29- 


-1 




3A813220 


0A9C 





7047 


MDFY3 


MDX 


X 


M0D22- 


-M0D21-1 




3A813230 


0A9D 





7009 


MDFY4 


MDX 


X 


HOP IT- 


-M0D23-1 




3A813240 


0A9E 





70B3 


MDFY5 


MDX 


X 


HOP I T- 


-M0D24-1 




3A813250 


0A9F 





709C 


MDFY6 


MDX 


X 


HOPIT- 


-MOD25-1 




3A813260 


OAAO 





7087 


MDFY7 


MDX 


X 


HOP IT- 


-M0026-1 




3A813270 


OAAl 





7033 


MDFYe 


MDX 


X 


JUMP-I 


10D27- 


-I 




3A813280 


0AA2 





701E 


MDFY9 


MDX 


X 


JUMP-I 


>10D28- 


-1 




3A8I3290 


0AA4 




0501 




END 




BEGIN 








3A813300 


NO 


STATEMENTS 


FLAGGED IN 


THE 


ABOVE ASSEMBLY 
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C R 


S S R 


NAME 


VALUE 


AODOl 


0A81 


ADR 12 


0982 


BAD 12 


07DC 


BAD14 


07E8 


BEGIN 


0501 


BITSW 


OA68 



EFERENCE 

REFERENCES 
06FA 

0845,0987 

05 IB, 05EB, 0635*0670 
051F,05ED,0637,067F 
0AA4 



BlTSl 0A79 



BITS2 


0A7A 


B1TS3 


0A7B 


BUSY 


06DC 


BUZY 


084C 


CARDS 


0863 


CHECK 


0877 


CKBIT 


0579 


CKOOK 


07C8 


CKLOP 


053F 


CKOVR 


09D0 


CKRDY 


0880 


CKRUN 


070D 


CLCNT 


0A7D 


CLERR 


08CA 


CLRIX 


06AF 


CNTCK 


0999 


CNTIT 


09FE 


CNTOK 


08 DB 


CNTRL 


0A74 


CNTOl 


0A13 


CNT02 


0A19 


CNT03 


OAIF 


CNT04 


0A25 


COLGO 


08A6 


CONSL 


0A66 


DELAY 


0A7F 


DISK 


0A60 


DLAYl 


0A47 


DLAY2 


0A40 


DLAY3 


0A53 


DLYNO 


0A41 


OLYOl 


09EC 


DLY02 


09F2 


DLY03 


09F8 


DSWCK 


0800 


DSWl 


0A80 


ENOCK 


0A2B 


ERROR 


071B 


FDCYC 


0716 


FEED 


0A6C 


FEEDS 


0A6E 


FINSH 


07A9 


GAPIT 


07B6 


GDCNT 


0A7C 


GOLOP 


0555 


HOPIT 


0806 


INTOO 


0898 


INTOl 


092E 


INT02 


0943 


INT03 


0958 


I NT 04 


08B3 


INT05 


09 6D 


JUMP 


0997 


KMAX 


0A89 



09F6 



051F,05ED,0637,067F 

0AA4 

052C,053F,0614,065C,06A4,06E1,07AD,0851,090A,0919,0999,09DO,09FE 

0A2B 
052E,054l,0616,065E,06A6,06E3,07AF,0853,090C,091B,099B,09D2,OAOO 

OA20rOA68 

0531 ,0619, 0661, 06A9 

0544,0549 

05D7,05F7,0621,0641,0669,06 89,06DF,0715,07DA,09E4,09EA,09FO, 

09FC»0A91 

084F,0876,087F 

0804, 092Ct 0941, 0956, 0968,0980, 0995 

0874 

054B 

05E9, 0633, 0678,0711 

0618,0663, 06AB 

09AE,09B6,09BE,09C6,09CE 

085C,0886 

06F2,0A9A 

0877, 0870, O898t08B0,O8C0,08CA,O8CE, 0807, 0906, 0915, 0922, 0926, 0931 

0938,0946, 09 50, 0958,0965, 0970, 097A, 0985, 098F 

08C8 

0553, 07B4, 0920 

0719 

086A 

0856, 08C4 

0646 

0A02 

0A05 

0A08 

OAOB 

08A4 

0821 

06E8,e858,09E0,0A36 

0752 

0A33 

0A36 

0A39 

0A30 

0908 

09DB 

09DE 

05F1,05F3,05FD,05FF, 0638,0630, 0647, 0649, 0683, 0685, 06 8F, 069 1,06ED 

0807 

080O, 0805, 080F, 0880, 0884,0880 

OA11,OA17,OA10,OA23,OA29 

07iC,07B6 

070C,0727,072F,07E6,07F2,07FE,081C 

0601, 06EF 

0693 




0585,058F,0599,05A3,05AD, 

0997,0A9D,0A9E,0A9F,0AA0 

0820 

0831,0933 

0835,0948 

0839,0950 

0830,0890 

0841,0972 

0A9B,0AA1,0AA2 

09C8,0A25 



KNTOl 


09B0 


KNT02 


09B8 


KNT03 


09C0 


KNT04 


09C8 


KOOO 


0A82 


KOOl 


0A83 


KOlO 


0A84 


K050 


0A85 


K080 


0A86 


KlOO 


0A87 


K250 


0A88 


LESSl 


0860 


LOOPS 


0575 


LOOPO 


0731 


LOOPl 


0741 


L00P2 


0751 


L00P3 


0761 


L00P4 


081E 


LOOPS 


07B8 


LPCNT 


0A7E 


MAP IT 


0503 


MDFY2 


0A9B 


MDFY3 


0A9C 


MDFY4 


0A9D 


MDFY5 


0A9E 


MDFY6 


0A9F 


MDFY7 


OAAO 


MDFY8 


OAAl 


MDFY9 


0AA2 


MDDIA 


07F9 


MOD 11 


06F2 


M0012 


091E 


M0013 


073A 


M0D14 


074A 


MOD 15 


075A 


M0D16 


076A 


MOD 17 


07C1 


M0D18 


07E1 


MOD 19 


07ED 


M0D20 


0827 


MOO 21 


0862 


MQD22 


08AA 


M0D23 


08CC 


M0D24 


0922 


M0D25 


0939 


M0D26 


094E 


MOD 27 


0963 


M0D28 


0978 


MOD 29 


0980 


MOFYA 


0A91 


MOFYB 


0A92 


MOFYC 


0A93 


MOFYO 


OAgA 


MOFYE 


0A95 


MOFYF 


0A96 


M0FY6 


0A97 


MOFYH 


0A9e 


MOFYJ 


0A99 


MOFYL 


0A9A 


NOADR 


07F4 


NODLY 


09E6 


NOPIT 


0A8D 


NOROY 


0893 


NRDYA 


05BF 


NRDYB 


05C9 


NRDYC 


0502 


NUMBR 


06FE 


NUMCK 


0723 



0990 

09A0 

09A3 

09A6 

09E6,0A41 

071F,07A5,086E 

060B,07A9,0901,09B0,0A00,0A13 

0988, 0A19 

08C2 

0605, 064F, 0697, 06FE, 0723, 0872, 09A8 

09C0,0A1F 

0861, 08A8, 0809 

0578, 0583, 0589, 0593, 0590, 05A7,05B1 

0581 

0587,0588 

0591,0595 

0598, 059F 

05A5,05A9 

05AF,05B3 

06F8,06FC, 0710, 072 1,0720, 0775, 081A, 0860,0870, 0878,0908 

073F,074F,075F,076F,07C6,0828,091E 

0991 

08A1 

08D0 

0928 

0930 

0952 

0967 

097C 

06C6,07A1,07F7,07FC,0A99 

06F4,070A, 0710, 0779, 0704, 0A91,0A9A 

0569 

0557, 0568, 06B8,06CA, 07 38, 0730, 0785, 0A92 

0558, 0560, 06BA,06CE, 0748, 0740, 0789, 0A93 

055F,056F,06BC, 0602, 0758, 0750, 0780, 0A94 

0563, 0571, 06BE, 0606, 0768, 0760, 0791, 0A95 

0567, 0573, 06CO,060A, 0795, 07BF,07C4,0A96 

06C2 , 0799 ,07DF , 07E4, 0A97 

06C4,0790,07EB,07F0,OA98 

0825 

0868, 08A3, 0882, 08BA,08DD,0A9C 

08AD,08BE,08E1,0A9C 

08D2,08E5,0A9D 

08C6,08E9,092A,0A9E 

08EO,0937,093F,OA9F 

08F1,094C, 0954, OAAO 

08F5, 0961, 0969, OAAl 

08F9 , 0976, 097E , 0AA2 

08FO,098B,0993,OA9B 

07D2 

073B 

074B 

0758 

076B 

07C2 

07E2 

07EE 

07FA 

0777 

0523, 05EF, 0639, 0681 

09D5 

05F9,068B 

088F 

05BB 

05C5 

05CE 

0607,0651,0699,09AA,09B2,09BA,09C2,09CA 

0609, 0653, 0698, 06B6,09AC,09B4,09BC,09C4,09CC 
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PLOT 

PRINT 

RAKEA 

READ 

RESET 

RESTR 

RETRN 

RUNCK 

RUNOK 

SENPT 

SENSE 



0A62 
0A64 
0A78 
0A76 
0849 
OA72 
086C 
06F1 
0702 
0A5C 
0A5A 



SEN25 

SETPT 

SETUP 

SET25 

SETA2 

SRAOl 

SRAlO 

SRAll 

START 

STOP 

TABLE 

TESTl 

TIME! 

TIME2 

TIME3 

TOTAL 

VECTO 

VECTl 

VECT2 

VECT3 

VECTi- 

VECT5 

VECOO 

VECOl 

VEC02 

VEC03 

VEC04 

VEC05 

WAITA 

WAITC 

WAITF 

WAITG 

WAITl 

WAIT2 

WAIT3 

WAITS 

WHATl 

WHAT2 

WHAT3 

WHICH 



0A5E 
061F 
0B2A 
0667 
05D5 
0A8E 
0A8F 
0A90 
0858 
0A6A 
0A70 
06E8 

0A8A 

0A8B 

0A8C 

0872 

0581 

0587 

0591 

0598 

05A5 

05AF 

0735 

0745 

0755 

0765 

0771 

07BC 

0913 

07CO 

0502 

0729 

0528 

0818 

0815 

053C 

05B9 

05C2 

05CC 

0529 



0762 
0742 
0A76 
08A6 

085E 

0A3F,0A45,0A4B,0A51,0A57 

0709f070F,077Dt07D0 

0706,0781 

05C2t061F, 0732, 0823 

0589, 05D5,06DC,06EA,072A, 0736, 0746, 0756, 0766, 0772, 07BD,07C9,07DD 

07E9,07F5, 0802, 080B,081F,084C,085A, 0882, 088A, 0894, 0899, 08B4,092F 

0944, 0959, 096E, 0983 

05CC,0667 

05C7 

060F,07AB,0911 

05D0 

05BD 

05F5,0687 

0643 

063F 

0888, 0891, 0896, 0A3D,0A43,0A49,0A4F,0A55 

07B9 

0A6E 

0509, 05FB, 0603, 0623, 0645, 0640, 0666,0680, 0695, 0809, 0813,0816,0962 

09E8,09EE,09F4,09FA 

09EC,0A47 

09F2,0A4D 

09F8,0A53 

OAOF,OA15,OA1B,OA21,OA27 

0547 

057F 

054E 

057A 

0551 

057D 

0503,0500, 0627, 066F, 07 34 

0507, 05DF, 0629, 067 1,0744 

050B,05E 1,0626,0673, 07 54 

050F,05E3, 0620,0675, 0764 

05 13, 05E5,062F, 0677, 06B2,06E6, 0703,0706 

05 17, 05E 7, 063 1,0679,0766 

0657, 069F,07B2, 0903, 090F 

07CB 

0506,062 5,0660,0725 

0526,0576 

0700 

0811 

053A 
0537 
0534 
0527, 0530, 05CO,05C A, 0503, 06 ID, 066 5, 06 AD 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 

C£ UTILITY PROGRAMS 

1130 ON LINE DISK ADJUSTMENT PROGRAM 



1. 



PURPOSE 



3. 



****#*!}!!!! ***«>!!***********#***********«******* ******* 

* DISK ADJUSTMENT PROGRAM * 
*************************************************** 
* 

* THE 1130 DISK ACCESS PROGRAM WAS DESIGNED TO BE 

* USED WITH THE ACCESS ADJUSTMENT PROCEDURE K)UND 

* IN THE SDS MAINTENANCE MANUAL. 
* 

* THE PROGRAM WILL MOVE THE ACCESS ARM BETWEEN 

* TRACKS 2 AND 200, AND COMPARE SECTOR ZERO 

* ADDRESSES AT THOSE TRACKS. 
* 

* THE SEEK OPERATION CAN BE SELECTED IN EITHER 10 

* OR 20 MILL MODE. 
* 

*************************************************** 
* 

* THE C.E. MUST HAVE A 1130 SYSTEM WITH CARD 

* READER OR PAPER TAPE INPUT. 
* 

* THE PROGRAM MUST BE LOADED BY A 

* RELOCATABLE LOADER, IF 1442 USE 

* PID 03AA, IF 2501 USE 03AB, IF 

* PAPER TAPE USE 03AC. 
* 

*************************************************** 
* 

3.1.1 PROGRAM * 

LOADING * TO LOAD FROM CARDS. 



USE PROCEDURE 



3.1.1 SETUP 



A. PLACE THE RELOCATING LOADER, AND THE DISK 
ADJUST TEST IN THE READER IN THAT ORDER. 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET KEY. 

D. PRESS THE 1131 PROGRAM LOAD KEY. 

E. IF THE PROGRAM FAILS TO LOAD OR STOPS AT ^ 
WAIT BELOW ADDRESS /0160 REFER TO THE 
RELOCATING LOADER DOCUMENTATION. 

TO LOAD FROM PAPER TAPE. 



A. 
B. 
C. 
D. 
E. 
F. 
G. 
H. 



A. 



B. 



PLACE THE RELOCATING LOADER IN THE READER. 

MAKE READER READY. 

PRESS THE 1131 RESET KEY. 

PRESS THE 1131 PROGRAM LOAD KEY. 

LOADER WILL LOAD AND HALT AT WAIT 030F6 (BREG) 

PLACE THE DISK ADJUST TEST IN THE READER. 

MAKE READER READY. 

PRESS THE START KEY. 

IF THE PROGRAM FAILS TO LOAD OR STOPS AT A 

WAIT BELOW ADDRESS /Q160 REFER TO RELOCATING 

LOADER DOCUMENTATION. 



AT WAIT 0, ENTER DISK DRIVE AREA CODE 
IN CONSOLE SWITCHES THRU 4 AND CLEAR 
BITS 5 THRU 14. 

DRIVE BIT SW SETTING 

/2000 

1 /8800 

2 /9000 

3 /9800 

4 /AOOO 

WAIT ON TRACK ERROR SW 15. 

THIS SWITCH MAY BE CHANGED AT ANY TIME. 



PART NO. 2243957 
PAGE 1 



3OA00020 

30A00030 

30A00040 

30A00050 

30A00060 

30A00070 

30AD0080 

30A00090 

3OAO0100 

30A00110 

30A00120 

30A00130 

30A00140 

30A00150 

30A00160 

30A00170 

30A00180 

30A00190 

30A00200 

3OA00210 

30A00220 

30A00230 

30A00240 

30A00250 

30A00260 

30A00270 

30A00280 

3OAO0290 

30A00300 

30A00310 

30A00320 

30A00330 

30A00340 

30A00350 

30A00360 

30A00370 

30A00380 

30A00390 

30A00400 

30A00410 

30A00420 

30A00430 

30A00440 

30A00450 

30A00460 

30A00470 

30A00480 

30A00490 

30A00500 

30A00510 

30A00520 

30A00530 

30A00540 

30A00550 

30A00560 

30A00570 

30A00580 

30A00590 

30A00600 

30A00610 

30A00620 

30A00630 

30A00640 

30A00650 

30A00660 

30A00670 

30A00680 

30A00690 
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3.2 OPERATION 



* C. DEPRESS START. 

*************************************************** 
* 

* THE PROGRAM WILL START OUT IN 20 MILL MOOE. 

* THE ACCESS ARM IS FIRST RETURNED HOME. 

* THE ARM THEN SEEKS TO TRACK 2 WHERE SECTOR 

* ZERO IS READ AND COMPARED WITH TRACK ADDRESS 2. 

* A GOOD COMPARE CAUSES THE CONSOLE PRINTER 

* TO PRINT ONCE AND THE ACCESS ARM TO GO TO 

* TRACK 200 WHERE THE SAME OPERATION IS REPEATED 

* FOR TRACK 200. IF COMPARE AT TRACK 200 IS 

* SUCCESSFUL, THE PRINTER WILL PRINT ONCE AND 

* THE ACCESS ARM RETURNS TO TRACK 2 WHERE THE 

* ABOVE OPERATION WILL BE REPEATED. 
* 

* IF A COMPARE ERROR IS DETECTED, THE PROGRAM 

* WILL COME TO A WAIT PROVIDED THAT SW 15 IS ON. 

* (SEE ERROR WAITS . . (3 .3 ) ) . IF SW 15 IS OFF 

* AND AN ERROR IS ENCOUNTERED, THE PROGRAM WILL 

* NOT CONTINUE AND THE PRINTER WILL NOT PRINT. 
* 

* TO STOP PROGRAM, DEPRESS IMMEDIATE STOP. 
* 

* TO RESTART PROGRAM, DEPRESS STOP. 



* TO START PROGRAM, DEPRESS START. 
* 

* TO CHANGE FROM 20 MILL MODE OPERATION TO 10 

* MILL OPERATION, OR VICE VERSA PERFORM THE 

* FOLLOWING- 
* 

* A. DEPRESS IMMEDIATE STOP. 

* B. DEPRESS PROGRAM RESET. 

* C. DEPRESS START. 
* 

********************#***********************«****** 
* 

* ENTER DISK DRIVE AREA CODE. ( SEE 3.1.C ) 
* 

ERROR WAITS *************************************************** 
* 
/30F1 * THE ADDRESS OF TRACK 2 - SECTOR ZERO WAS READ 

* AND FOUND INVALID. 
* 

* IF ACCESS ARM IS SITTING AT DETENT 2, 

* DEPRESS START TO CONTINUE ADJUSTMENT, ELSE 

* 00 A SECTOR REWRITE AS FOLLOWS- 



3.3 WAITS 

/3000 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 



A. LOAD I REG TO /018C. 

B. PLACE CONSOLE SW IN RUN. 

C. DEPRESS START. 

************************************* 
*************** CAUTION ************* 
************************************* 

* * 

* ONLY USE TRACK 2 REWRITE OPTION * 

* WHEN SITTING AT WAIT /30F1 * 

* * 

* REWRITE OPTION WILL DESTROY * 

* ORIGINAL SECTOR DATA. * 

* * 
************************************* 



/30F2 



*************************************************** 

* 

* THE ADDRESS OF TRACK 200 - SECTOR ZERO WAS READ 
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30A00700 

30A00710 

30A00720 

30A00730 

30A00740 

30A00750 

30A00760 

30A00770 

30A00780 

30A00790 

30A00800 

30A00810 

30A00820 

30A00B30 

30A00840 

30A00850 

30A00860 

30A00870 

30A00880 

30A00890 

30A00900 

30A00910 

3UA00920 

30A00930 

3UA00940 

30A00950 

30A00960 

30A00970 

30A00980 

30A0099 

30A01000 

30A01010 

30A01020 

30A01030 

30A01040 

30A01050 

30A01060 

30A01070 

30A01080 

30A01090 

30A01100 

30A01110 

30A01120 

30A01130 

30A01140 

30A01150 

30A01160 

30A01170 

30A01180 

30A01190 

30A01200 

30A01210 

30A01220 

30A01230 

30A01240 

30A01250 

30A01260 

30A01270 

30A01280 

30A01290 

30A01300 

30A01310 

30AOi320 

30A01330 

30A01340 

30A01350 

30A01360 

30A01370 
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* AND FOUND INVALID. 

* IF ACCESS ARM IS SITTING AT DETENT 200, 

* DEPRESS START TO CONTINUE ADJUSTMENT, ELSE 
« DO A SECTOR REWRITE AS FOLLOWS- 



3.4 TERMINATION 



4.0 PRINTOUTS 



5.0 COMMENTS 



0160 



0160 6500 OlDE 
0162 6D00 OOOA 
0164 6500 0170 
0166 6000 GOOD 
0168 6500 01E2 
016A 6D00 OOOC 



A. LOAD I REG TO /018F. 

B. PLACE CONSOLE SW IN RUN. 

C. DEPRESS START. 

*************** CAUTION ************* 
************************************* 

* * 

* ONLY USE TRACK 200 REWRITE OPTION * 

* WHEN SITTING AT WAIT /30F2 * 

* * 

* REWRITE OPTION WILL DESTROY * 

* ORIGINAL SECTOR DATA. * 

* * 
************************************* 



*************************************************** 
* 

* TO TERMINATE PROGRAM DEPRESS IMMEDIATE STOP. 
* 

*************************************************** 
* 

* NONE 
* 
*************************************************** 

* TO RERUN PROGRAM ON ANOTHER DRIVE, PRESS THE 

* STOP KEY AND THE PROGRAM WILL STOP AT WAIT 

* SEE SECTION 3.1.C 
* 
*************************************************** 

ABS 

ORG /0160 

********************************************* 

* * 

* DISK ADJUSTMENT PROGRAM * 

* * 
********************************************* 

* 



BGN LDX LI INT2 

STX LI /OOOA 

LDX Li INT5 

STX LI /OOOD 

LDX LI PRTIN 

STX LI /OOOC 

* 



016C 





C84F 




PROGM 


LDD 




RESRT 


016D 





DCOO 


0000 




STD 


L 





016F 





7002 




* 
INT5 


MDX 




WAIT 


0170 





0000 




DC 




*-* , 


0171 





084C 




* 
WAIT 


XIO 




SPDSW 


0172 





1010 




SLA 




16 


0173 





D0 6A 






STO 




INT2 


0174 





D06D 






STO 




PRTIN 


0175 





3000 






DC 




/3000 


0176 





7400 


OlDE 




MDX 


L 


INT2,0 


0178 





70 F9 






MDX 




WAIT 


0179 





7400 


01E2 




MDX 


L 


PRTIN, 


017B 





70F6 






MDX 




WAIT 


017C 





4878 






BOSC 




+ -Z 


017D 





1000 






NOP 







SET DISK INTERRUPT VECTOR 
SET PROGRAM STOP VECTOR 
SET PRINTER VECTOR 



* SET AREA CODE IN 
** BIT SWITCHES 
SKIP VECTOR 

ENTRY POINT 

SENSE PROGRAM STOP 

CLEAR ACC 

CLEAR VECTOR 

CLEAR VECTOR 

** 

TEST VECTOR FOR ZERO 

INTERRUPT OCCURRED 

TEST VECTOR FOR ZERO 

INTERRUPT OCCURRED 

BRANCHOUT 

FILL WORD 
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30A01380 
30A01390 
30A01400 
30A01410 
30A01420 
30A01430 
30A01440 
30A01450 
30A01460 
30A01470 
30A01480 
30A01490 
30A01500 
30A01510 
30A01520 
30A01530 
30A01540 
30A01550 
30A01560 
30A01570 
30A01580 
30A01590 
30A01600 
30A01610 
30A01620 
30A01630 
30A01640 
30A01650 
30A01660 
30A01670 
30A01680 
30A01690 
30A01700 
30A01710 
30A01720 
30A01730 
30A01740 
30A01750 
30A01760 
30A01770 
30A01780 
30A01790 
30A018OO 
30A01810 
30A01820 
30A01830 
30A01840 
30A01850 
30A01860 
30A01870 
30A01880 
30A01890 
30A01900 
30A01910 
30A01920 
30A01930 
30A01940 
30A01950 
30A01960 
30A01970 
30A01980 
30A01990 
30A02000 
30A02010 
30A02020 
30A02030 
30A02040 
30A02050 
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017E 6210 
017F 0858 

0180 C068 

0181 E069 

0182 D066 

0183 C600 01C5 

0185 E064 

0186 E862 

0187 0600 01C5 

0189 72FE 
018A 70F8 
018B 7005 

018C 083B 
018D 4060 
018E 7002 

018F 083A 

0190 405D 

0191 083C 

0192 405B 

0193 083C 

0194 4059 

0195 7063 

0196 C051 

0197 4C20 019F 
0199 C02C 
019A D037 
019B D038 
019C 6201 
019D 6301 
019E 7007 

019F 6201 

OlAO 6A31 

OlAl 6A32 

01A2 6680 01C6 

01A4 6780 01C6 

01A6 082B 

01A7 4046 

01A8 72FF 

01A9 70FC 

OlAA 0821 

OlAB 4042 

OlAC C065 

OlAD F02F 

OlAE 4C18 01B4 

OIBO 4005 

OlBl 4804 

01B2 30F2 

01B3 70DD 

01B4 4054 
01B5 703F 

01B6 0000 

01B7 081E 

01B8 C033 

01B9 4C80 01B6 



LDX 
XIO 
LD 
AND 
STO 
AGANl LD 
AND 
OR 
STO 
MDX 
MDX 
MDX 



WTTWO 



* 
WTHND 

* 
SKHME 



* 
ONWDO 



* 
ONWDl 



* 
CMNDl 



* 
PRTl 



XIO 
BSI 
MDX 

XIO 
BSI 

XIO 
BSI 
XIO 
BSI 
MDX 

LD 

BSC 

LD 

STO 

STO 

LDX 

LDX 

MDX 

LDX 
STX 
STX 
LDX 
LDX 

XIO 
BSI 
MDX 

MDX 

XIO 

BSI 

LD 

FOR 

BSC 

BSI 
BSC 
DC 
MDX 

BSI 
MDX 



OIBC 



0000 



RDSWT DC 
XIO 
LD 
BSC 



BSS 



2 16 

RDSPS 

AREA 

F800 

AREA 
L2 SNDSW-1 

H07FF 

AREA 
L2 SNDSW-1 
2 -2 

AGANl 

SKHME 

WRT02 

TEST 

SKHME 



WRT20 
TEST 

HOME 
TEST 
TRK2 
TEST 
CHCK2 

TOGGL 

ONWDl, Z 

SNDSW 

TWHND 

TWO 

1 

1 

CMNDl 



2 1 

2 TWHND 

2 TWO 

12 SNDSW 

13 SNDSW 

TWHND 
TEST 
2 -1 
CMNDl 

READ 
TEST 
INPUT&l 
0UT20S1 
L PRT1,+ - 

RDSWT 
E 

/30F2 
SKHME 

TPRT 
CMND2 



RDSPT 

SWDAT 

I RDSWT 



** 

FETCH SW INPUT 

CLEAR BITS OTHER THAN 

SET AREA CODE 



* * SET AREA CODE 

* * INTO lOCC 

** 
* 

* WRITE ADDRESS AT 

* TRACK 2 



« WRITE ADDRESS AT 

* TRACK 200 

* GO HOME 
* 

** GO TO TRACK 



** BR IF 10 MIL MODE 

* * 

* * 

* * 

* * SET PROPER 

* * MODE 

* * 

* * 

* * 



** GO TO TRACK 200 

* 

* 

** 

* * 

* * READ/COMPARE 

* * ADDR AT TRK 200 

TEST FOR SW 15 

* * 

** ERROR, DID NOT 

* COMPARE 

SPACE PRINTER 
CONTINUE 

ENTRY POINT 

READ SWS 

SET DATA TO ACC. 

EXIT 



30A02060 
30A02070 
30A02080 
30A02090 
AREA 30A02100 
30A02110 
30A02120 
30A02130 
30A02140 
30A02150 
30A02160 
30A02170 
30A02180 
30A02190 
30AO22UO 
30A02210 
30A02220 
30A02230 
30A02240 
30A0225U 
3UA02260 
3UA0227U 
30A02280 
30A02290 
30A02300 
3OA0231O 
30A02320 
30A02330 
30A0234U 
3UA02350 
30A02360 
3UA0237U 
30A02380 
30A02390 
30A02400 
30A02410 
30A02420 
30A02430 
30A02440 
30A02460 
30A02460 
30A02470 
30A02480 
30A02490 
30A02500 
30A02510 
30A02520 
30A02530 
30A02540 
30A02550 
30A02560 
30A02570 
30A02580 
30A0259U 
30A02600 
30A02610 
30A02620 
30A02630 
30A02640 
30A02650 
30A02660 
30A02670 
30A02680 
30A02690 
30A02700 
30A02710 
30A02720 
30A02730 
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OIBC 





4C00 0205 


RESRT 


BSC 


L RSTRT 


MODE CHANGE SET/UP 


30A02740 


OIBE 





0000 


SPDSW 


DC 






30A02750 


OIBF 





3F0I 




DC 


/3F01 


IGCC-SENSE RESET (5) 


30A02760 


OICO 





01C2 


PRTU 


DC 


DATA 


SPACE 


30A02770 


OlCl 





0900 




DC 


/0900 


PRINTER lOCC 


30A02780 


01C2 





C400 


DATA 


DC 


/C400 


ZERO(TILT/ROTATE) 


30A02790 


01C3 





OFOO 




DC 


/OFOO 


SENSE AND NO RESET 


30A02800 


01C4 





0000 


SWl 


DC 


*-« 


ERROR STOP SW. 


30A02810 


01C5 





OFOl 




DC 


/OFOl 


SENSE AND RESET 


30A02820 


01C6 





00C6 


SNDSW 


DC 


198 


CONSTANT 198 


30A02830 


0107 





0701 




DC 


/0701 


lOCC-SENSE/RESET DSW 


30A02840 


01C8 





OlDA 


WRT02 


DC 


0UT02 




30A02850 


01C9 





0500 




DC 


/0500 


lOCC-WRITE TRACK 2 


30A02860 


OICA 





OlDC 


WRT20 


DC 


0UT20 




30A02870 


OICB 





0500 




DC 


/0500 


lOCC-WRITE TRACK 200 


30A02880 


Dice 





0211 


READ 


DC 


INPUT 




30A02890 


OlCD 





0600 




DC 


/0600 


lOCC-REAO ADDRESS 


30A02900 


OICE 





OOCA 


HOME 


DC 


202 




30A02910 


OICF 





0404 




DC 


/0404 


lOCC-SEEK HOME 


30A02920 


OlDO 





0002 


TRK2 


DC 


2 




30A02930 


OlDl 





0400 




DC 


/0400 


lOCC-GO TO TRK 2 


30A02940 


01D2 





0000 


TWHND 


DC 


*-* 




30A02950 


01D3 





0400 




DC 


/0400 


lOCC-GO TO TRK 200 


30A02960 


01D4 





0000 


TWO 


DC 


*-* 




30A02970 


01D5 





0404 




DC 


/0404 


lOCC-BACK TO TRK 2 


30A02980 


01D6 





OlEC 


RDSPT 


DC 


SWDAT 


READ SWITCHES 


30A02990 


01D7 





3A00 




DC 


/3A00 


lOCC 


30A03000 


01 D8 





01E9 


RDSPS 


DC 


AREA 




30A03010 


0109 





3A00 




DC 


/3A00 


lOCC-READ BIT SWS 


30A03020 


01 DA 





0001 


0UT02 


DC 


1 


WRT TRK 2 TABLE 


30A03030 


OlDB 





0010 




DC 


/OOIO 


# 


30A03040 


OlDC 





0001 


0UT20 


DC 


1 


WRT TRK 200 TABLE 


30A03050 


OIDD 





0640 


* 


DC 


/0640 


* 


30A03060 
30A03070 


OlDE 





0000 


INT2 


DC 


*-* 


* 


30A03080 


OlDF 





08E6 




XIO 


SNDSW 


** DISK INTERRUPT 


30A03090 


OlEO 





4CC0 OlDE 




BOSC 


I INT2 


* ROUTINE 


30A03100 
30A03110 
30A03120 


01E2 





0000 


PRTIN 


DC 


*-* 


ENTRY POINT 


30A03130 


01E3 





0009 




STO 


SAVEl 


SAVE ACC. 


30A03140 


01E4 





08DF 




XIO 


SWl 


SENSE AND RESET PRT. 


30A03150 


01E5 





C007 




LD 


SAVEl 


RESTORE ACC. 


30A03160 


01E6 





4CC0 01E2 


* 

* 


BOSC 


I PRTIN 


CLEAR INT. 


30A03170 
30A03180 
30A03190 


01E8 





0000 


TOGGL 


DC 


*-* 


MODE TOGGLE 


30A03200 


01E9 





0000 


AREA 


DC 


*-* 


CURRENT AREA CODE 


30A03210 


OlEA 





07FF 


H07FF 


DC 


/07FF 




30A03220 


OlEB 





F800 


F8 00 


DC 


/F800 


CLEAR WORD 


30A03230 


OlEC 





0000 


SWDAT 


DC 


*-* 


DATA SWITCH INPUT AREA 


30A03240 


01 ED 





0000 


SAVEl 


DC 


*-* 


ACC SAVE AREA 


30A03250 
30A03260 


OlEE 





0000 


TEST 


DC 


*-* 


* 


30A03270 


OlEF 





08D6 




XIO 


SNDSW 


** 


30A03280 


OlFO 





180D 




SRA 


13 


* * CHECK FOR FILE 


30A03290 


OlFl 





4804 




BSC 


E 


» * READY 


30A03300 


01F2 





70 FC 




MDX 


TEST61 


** 


30A03310 


01F3 





4C80 OlEE 


* 


BSC 


I TEST 


* 


30A03320 
30A03330 


01F5 





080E 


CMN02 


XIO 


TWO 


* 


30A03340 


01F6 





40F7 




BSI 


TEST 


* GO TO TRACK 2 


30A03350 


01F7 





73FF 




MDX 


3 -1 


* 


30A03360 


01F8 





70FC 


* 


MDX 


CMND2 


* 


30A03370 
30A03380 


01F9 





08D2 


CHCK2 


XIO 


READ 


* 


30A03390 


OlFA 





40 F 3 




BSI 


TEST 


** 


30A03400 


OlFB 





C016 




LD 


INPUT&1 


* * 


30A03410 
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OlFC 





FODE 




EOR 


0UT0261 


* * READ/COMPARE 


30A03420 


01 FD 





4C18 0203 




BSC L PRT2,+- 


* * ADDR AT TRK 


2 


30A03430 








* 










30A03440 


OlFF 





40B6 




BSI 


RDSWT 


TEST FOR SWITCH 


15 


30A03450 


0200 





4804 




BSC 


E 


SKIP IF SW OFF 




30A03460 


0201 





30F1 




DC 


/30F1 


** ERROR, DID 


NOT 


30A03470 


0202 





708E 


« 


MDX 


SKHME 


* COMPARE 




30A03480 
30A03490 


0203 





4005 


PRT2 


BSI 


TPRT 


SPACE PRINTER 




30A03500 


0204 





7091 


« 


MDX 


ONWDO 


CONTINUE 




30A03510 
30A03520 


0205 





C0E2 


RSTRT 


LD 


TOGGL 


* 




30A03530 


0206 





F0D3 




EOR 


0UT02 


** CHANGE MODE 




30A03540 


0207 





DOEO 




STO 


TOGGL 


** 




30A03550 


0208 





7088 


* 


MDX 


SKHME 


* 




3UA03560 
30A03570 


0209 





0000 


TPRT 


DC 


*-* 


ENTRY POINT 




30A03580 


020A 





08B7 




XIO 


DATA 


SENSE PRINTER 




30A03590 


020B 





1005 




SLA 


5 


MOVE LEFT 




30A03600 


020C 





4828 




BSC 


+ Z 


SKIP IF READY 




3OA03610 


020D 





70FC 




MDX 


TPRT+1 


LOOP IF NOT READY 


30A03620 


020E 





08B1 




XIO 


PRTU 


SPACE PRINTER 




30A0363U 


020F 





4C80 0209 


* 


BSC 


[ TPRT 


EXIT 




30A03640 
30A0365U 


0211 





000 2 


INPUT 


DC 


2 


INPUT AREA 




30A03660 


0212 




0002 




BSS 


2 


* 




3UA03670 


0214 




0160 




END 


BGN 






30A036bU 
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AGANl 


0183 


018A 








AREA 


01E9 


0180 


0182 


0186 


01D8 


BGN 


0160 


0214 








CHCK2 


01F9 


0195 








CMNDl 


01A6 


019E 


01A9 






CMND2 


01F5 


0185 


01F8 






DATA 


01C2 


OICO 


020A 






F800 


OlEB 


0181 








HOME 


OICE 


0191 








H07FF 


OlEA 


0185 








INPUT 


0211 


OlAC 


OICC 


01 FB 




INT2 


OlDE 


0160 


0173 


0176 


OlEO 


INT5 


0170 


0164 








ONWDO 


0196 


0204 








ONWDl 


019F 


0197 








OUT02 


OlDA 


01C8 


OlFC 


0206 




OUT20 


OlDC 


OlAD 


OICA 






PROGM 


016C 










PRTIN 


01E2 


0168 


0174 


0179 


01E6 


PRTIl 


OICO 


020E 








PRTI 


01B4 


OlAE 








PRT2 


0203 


OlFD 








RDSPS 


01D8 


017F 








RDSPT 


01D6 


01B7 








RDSWT 


01B6 


OIBO 


01B9 


OlFF 




READ 


Dice 


OlAA 


01F9 






RESRT 


OIBC 


016C 








RSTRT 


0205 


OIBC 








SAVEl 


OlED 


01E3 


01E5 






SKHME 


0191 


018B 


018E 


01B3 


0202 0208 


SNOSW 


01C6 


0183 


0187 


0199 


01A2 01A4 OlDF 


SPDSW 


OIBE 


0171 








SWDAT 


OlEC 


01B8 


01D6 






SWl 


01C4 


01E4 








TEST 


OlEE 


018D 


0190 


0192 


0194 01A7 OlAB 


TOGGL 


01E8 


0196 


0205 


0207 




TPRT 


0209 


01B4 


0203 


020D 


020F 


TRK2 


OlDO 


0193 








TWHND 


01D2 


019A 


OlAO 


01A6 




TWO 


01D4 


019B 


OlAl 


01F5 




WAIT 


0172 


016F 


0178 


017B 




WRT02 


01C8 


018C 








WRT20 


OICA 


018F 








WTHND 


018F 










WTTWO 


018C 










END OF 


ASSEMBLY 
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PURPOSF 



RFQUIRtMENTS 



USE PROCEDURE 

3.1 SFTUP AND 
OPERATION 

3.2 LOADING 



3.3 WAITS 



* 

ONE CARD PROGRAMS THAT PROVIDE THE C.E. WITH THE 
ABILITY TO EXERCISE VARIOUS FUNCTIONS OF THE 
1130 SYSTEM. EACH CARD IS IDENTIFIED BY THF 
NUMBER IN COLUMNS 79 AND 80. THIS NUMBER REFERES 
TO A PARAGRAPH WITHIN THF APPENDIX. 



THE C.E. MUST HAVE THE 1130 SYSTEM AND A MEANS 
TO ENTER THE PROGRAM. 



CHECK EACH WRITE-UP FOR SWITCH SETTINGS BEFORE 
AND AFTER LOADING. 

THE PROGRAM IS LOADED IN IPL HOOF FROM CARDS, 
PAPER TAPE OR MAY BE BIT-SWITCHED IN. 

WAITS ARE IDENTIFIED BY THE B-REGISTER. THFY 
HAVE THE FOLLOWING MEANING, 



B-REG 



3001 BIT SWITCH SETTINGS REQUIRED. 

3002 ONE PASS OF THE PROGRAM HAS BEEN 
COMPLETED. 

3003 NO INTERRUPT RECEIVED AFTER A 
WRITE COMMAND. 

3004 NO INTERRUPT RECEIVED AFTER A READ 
COMMAND. 



3005 



NO INTERRUPT RECEIVED AFTER A 
CONTROL COMMAND. 



3006 ERROR, SEE INDIVIDUAL PROGRAM. 

3007 ERROR, SEE INDIVIDUAL PROGRAM. 



3.4 TERMINATION * PRESS IMMEDIATE STOP. IF PROGRAM STOP IS PRESSED 
* THE PROGRAM MAY NOT RUN BY PRESSING START BE- 
CAUSE INTERRUPT 5 IS ON. 



* 
* 
3.5 RESTART * 

* 
PRINTOUTS * 

COMMENTS * 

* 

* 

* 

* 

*************************************************** 



PRESS IMMEDIATE STOP AND RESET. PRELOADING 
SWITCHES HAY BE SET AS DESIRED. PRESS START. AT 
WAIT 1 MAKE REQUIRED BIT SWITCH SETTINGS. 

NONE EXCEPT FOR DEVICES THAT PRINT CHARCTERS 
ENTERED FROM THE BIT SWITCHES. 

IN MOST CASES A SPECIFIFIED 'LDX* MAY REPLACE A 
WAIT TO ALLOW RUNNING WITHOUT INTERRUPT. ERROR 
WAITS MAY BE REPLACED BY A 'NOP'. OTHER COMMENTS 
WILL BE FOUND IN EACH PROGRAM. AN INSTRUCTION 
FOLLOWED BY *A* WILL BE ALTERED. THIS IS DUE TO 
THE LIMITATIONS OF 1130 IPL MODE. THE ALTERED 
INSTRUCTION WILL FOLLOW THE *A*. 
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3A000670 
3A000680 
3A000690 
3A000700 
3A000710 
3A000720 
3A000730 
3A000740 
3A000750 
3A000760 
3A000770 
3A000780 
3A000790 
3A000800 
3AO0OaiO 
3A000820 
3A000830 
3A000840 
3A000850 
3A000860 
3A000870 
3A000880 
3A000890 
3A000900 
3A000910 
3A000920 
3A000930 
3A000940 
3A0009 50 
3A000960 
3A000970 
3A00098Q 
3A000990 
3AO01OOO 
3A001010 
3A001020 
3A001030 
3A001040 
3A001050 
3A00I060 
3A001070 
3A00l0a0 
3A001090 
3A001100 
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6. * CHAR * 1132 * 1403 * KEY/BO 

APPENDIX A * A * CI * 64 ♦ AOOO 

* B * C2 * 25 * B800 

* C * C3 * 26 ♦ 8400 

* D * C4 * 67 ♦ 8200 

* E * C5 * 68 * 8100 

* F * C6 ♦ 29 * 8080 

* G * C7 ♦ 2A ♦ 8040 

* H * C8 ♦ 6B * 8020 

* I * C9 * 2C * 8010 

* J * 01 * 58 * 5000 

* K * 02 * 19 ♦ 4800 

* L * 03 * lA * /f^OO 

* M * 04 * 5B ♦ 4200 

* N * 05 * IC * 4100 

* ♦ 06 * 50 * 4080 
» P * 07 * 5E * 4040 

* Q * 08 * IF * 4020 

* R ♦ 09 * 20 * 4010 

* S * E2 * OD * 2800 

* T * F3 * OB * 2400 

* U * F4 ♦ 4F * 2200 

* V * E5 * 10 * 2100 

* W * E6 ♦ 51 * 2080 

* X ♦ E7 ♦ 52 * 2040 

* Y * E8 * 13 * 2020 

* Z ♦ E9 ♦ 54 * 2010 

* * FO * 49 * 2000 

* 1 * Fl * 40 * 1000 

* 2 * F2 * 01 * 0800 

* 3 * F3 * 02 * 0400 

* 4 * F4 ♦ 43 * 0200 

* 5 * F5 * 04 • 0100 

* 6 * F6 * 45 * 0080 

* 7 * F7 * 46 * 0040 

* 8 ♦ F8 ♦ 07 * 0020 

* 9 * F9 * 08 * 0010 
» = ♦ 7E * 4A * OOAO 

* $ * 56 * 62 * 4420 

* . * 48 * 6E * 8420 

* • * 70 • OB ♦ 0120 

* f ♦ 6B * 16 * 2420 

* ( * 40 * 57 * 8120 

* - * 60 * 61 * 4000 

* ) * 50 * 2F * 4120 

* + * 4E * 60 ♦ 80A0 

* / * 61 * 4C * 3000 

* ♦ * 5C * 23 * 4220 

* S * 50 * 15 * 8000 

* SPACE * 00 * 7F * 0000 

* NUMBER * * 0420 

* AT ♦ * 0220 

, * LS THN * * 8220 

* LOG/NOT* * 4060 

* SEM/CLM* ■ — * 40A0 

* QUOTE * * 0060 

* LOG/OR * ♦ 8060 

* UNSCORE* * 2120 

* OST MK * » 2060 

* COLON * ♦ 0820 

* GRT THN* * 20A0 

* EXCLAIM* * 4820 

* PERCENT* — . ♦ 2220 

* CENT ♦ * 8820 

* EOF * * 0008 

* ER CHR * * 0004 

* ER FLO * * 0002 

* 0-8-2 * * 2820 



* CON/PTR U/C * CON/PTR L/C* 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* ■ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 
* 
*. 

* 
* 
* 
* 
* 
* 
* 



3E 
lA 

IE 

32 

36 

12 

16 

26 

22 

7E 

5A 

5E 

72 

76 

52 

56 

66 

62 

9A 

9E 

B2 

66 

92 

96 

A6 

A2 

C4 

FC 

08 

OC 

FO 

F4 

00 

04 

E4 

EO 

C2 

40 

00 

E6 

80 

FE 

84 

F6 

DA 

BC 

06 

44 

21 

CO 

04 

DE 

F2 

02 

E2 

C6 

BE 

86 

82 

46 

42 

06 

02 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 



3C 
18 
IC 
30 
34 
10 
14 
24 
20 
7C 
58 
5C 
70 
74 
50 
54 
64 
60 
98 
9C 
BO 
B4 
90 
94 
A4 
AO 



* 
* 
* 



************** 

* 

* * CONSOLE * 

* * PRINTER * 

* * CONTROLS* 

* * CARRIER * 

* * RETURN * 

* * 81 * 

* *t*t**«*t*** 

* * TAB * 

* * 41 * 

* **4i«***«4i*«« 

* * SPACE * 

* * 21 * 

* 4>*4<*«***4i4r*« 

* *8ACK/SPACE* 

* • 11 * 

* ************ 

* * SHIFT TO * 

* * RED * 

* * 09 * 

* * * 

* ****«***4i«*4i 

* * SHIFT TO * 

* * BLACK ♦ 

* * 05 * 

* * LINE FEED* 

* * 03 * 

♦ 
* 
* 
* 
* 
** 



3A001120 

3A001130 

3A001140 

3A001150 

3A001160 

3A001170 

3A001180 

3A001190 

3A00I200 

3A00I210 

3A001220 

3A00I230 

3A001240 

3A001250 

3A001260 

3A001270 

3A001280 

3A001290 

3A001300 

3A001310 

3A001320 

3A001330 

3A001340 

3AO01350 

3A001360 

3A001370 

3A001380 

3A001390 

3A001400 

3A001410 

3A001420 

3A001430 

3A001440 

3AO0I45O 

3A001460 

3A001470 

3A001480 

3A001490 

3A001500 

3A001510 

3A001520 

3A001530 

3A001540 

3A001550 

3A001560 

3A001570 

3A001580 

3A001590 

3A001600 

3A001610 

3A001620 

3A001630 

3A001640 

3A001650 

3A001660 

3A001670 

3A001680 

3A001690 

3A001700 

3A001710 

3A001720 

3A001730 

3A001740 

3A001750 

3A001760 

3A001770 

3A001780 

3A001790 



*************************************************** 
• PLOTTER BIT SMITCH CONTROL ♦ PAPER TAPE BIT SM • 
•*♦*********•*♦*•**•*♦***♦♦**** CONTROL AND BINARY* 



BIT SHS 

AND 8 

1 AND 

2 AND 

3 AND 

4 AND 

5 AND 
SET CHAR. 
SET CHAR. 



11 
12 
13 



FUNCTION 

— PEN DOWN 

9 DRUM DOWN 

10 — DRUM UP 

— CARR. RIGHT 

— CARR. LEFT * 

— PEN UP * 

1 IN BIT SWS 0-5 ♦ 

2 IN BIT SWS 8-13 • 
******************************* 

* * 

* * 

* * 

* DECIMAL TO HEX ♦ ♦ 

* CONVERSION TABLE * • 
****************«4i*** * 

* CYL * BIT SW * * 

* NUMBER * SETTING • * 

* IN HEX * IN HEX • « 
********************* * 



* PATTERN DATA. * 
********•*•**•«*****• 
* 
« 
** ** * 

* * * « « « * 

* * * 0*. * * 

* *0 . * 

* 0. 














* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
♦ 
* 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 



* 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



OA 
14 
IE 
28 
32 
3C 
46 
50 
5A 
64 
6E 
78 
82 
8C 
96 
AO 
AA 
B4 
BE 
C8 



* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 
* 
* 
* 
* 



********************* 

* 
* 
* 
* 
* TO READ/COMPARE BINARY 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 

* 
* 
* 



O 































* PATTERNf LOAD TAPE HERE * 



********************* 



* * 

* PAPER * 

* TAPE 
* 
* 
* 
* 

* CHAR 2 BIT SWS ~ 8 9 1 I I 111 

* 
* 



CHANNEL —8765 4 321 
CHAR I BIT SWS — 01234 567 



SAOOISOO 

3A001810 

3A001820 

3A001830 

3A001840 

3A001850 

3A001860 

3A001870 

3A001880 

3Aq0l890 

3A 00 1900 

3A001910 

3A001920 

3A001930 

3 AGO 1940 

3A001950 

3A001960 

3A001970 

3A001980 

3A001990 

3A002000 

3A002010 

3A002020 

3A002030 

3A002040 

3A002050 

3A002060 

3A002070 

3A002080 

3A002090 

3A002100 

3A002110 

3A002120 

3A002130 

3A002140 

3A002150 

3A002160 

3A002170 

3A002180 

3A002190 

3A002200 

3A002210 

3A002220 

3A002230 

3A002240 

3A002250 

3A002260 

3A002270 

3A002280 

3A002290 

3A002300 

3A002310 

3A002320 

3A002330 

3A002340 

3A002350 

3A002360 

3A002370 

3A002380 

3A002390 

3A002400 

3A002410 

3A002420 
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*«!*«*♦*#*««*:*«*«**«♦************»**♦♦******♦******* 



6. 1 STORAGE CHECK 



A. PRELOAr) SWS 



R. LOADING 

C. WAIT 1 

? 

D. RESTART 
F. COMMENTS 



0000 






0000 





6009 


0001 





0000 


0002 





0000 


0003 





0000 


OOO'i 





0000 


0005 





0000 


0006 





0001 


0007 





003A 


0008 





0015 


0009 





603F 


OOOA 





1006 


OOOB 





ERFC 


OOOC 





1006 


OOOD 





eaFA 


OOOt 





noF4 


OOOF 





OflF6 


0010 





COFO 


0011 





D0F3 


0012 





1802 


0013 





1002 


OOIA 





90F1 


0015 





OOFE 


0016 





3001 


0017 





08FF 


0018 





C0E8 


0019 





1800 



EACH CORF LOCATION IS CHECKFO WITH A PATTERN 
SFT IN THE BIT SWITCHES. IF BIT 14 IS ON THF BIT 
SWITCHES ARE USED AS AN ADDRESS TO BE CHECKED 
ANO THF PATTERN IS /5555. 

BIT SW 15- HALT AFTER ONE PASS. 
14- USF ONE ADDRESS 
3- 4 K MEMORY 
K 
K 



7- 
1- 
0- 



8 
16 
32 K 



* 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 
# 
* 
* 

* 
* 

* 

* 

* 

* 

* 

ABS 



IPL MOOF FROM CARDS OR PAPER TAPE. 

SET PATTERN OR ADDRESS IN BIT SWITCHES. 

ONE PASS COMPLETED, PRFSS START TO CONTINUE. 

PATTERN CHANGED. THE BIT THAT WAS DROPPED OR 
PICKFD IS ON IN THF ACCUMULATOR. FAILING ADDRESS 
IS IN ADOPtSS LOCATION 2. PRESS START TO 
CONTINUE OR DO A RESTART. 

PRESS IMMEDIATE STOP AND RESET. PRELOADING 
SWITCHES MAY BF SET AS DESIRED. PRESS START. 

THIS PROGRAM WILL WRITE ANO READ ALL CORE 

ADDRESSES OUT SIDE THF PROGRAM AREA. 

FACH ADDRESS IS WRITTEN AND CHECKED 2 TIMES. 

IF AN ADDRESS IS FOUND TO BE A PROBLEM, SET BIT 

14 ON AND RESTART. PLACE THE ADDRESS IN THE BIT 

SWITCHES AT WAIT 1. 

THE PROGRAM WILL CHECK ONLY THAT ADDRESS WITH 

THE PATTERN /5555. 



ORG 
LDX 
STGSW DC 
STGLC DC 
STGPN DC 
STGCR DC 
STGHL DC 
* 

STGRD DC 
DC 
STGXX DC 
STGST LDX 
SLA 
OR 
SLA 
OR 
STO 
XIO 
LD 
STO 
SRA 
SLA 
S 

STO 
WAIT 

XIO 

LD 

RTF 





STGST 

*-* 

*-* 

*-* 

«-* 

*-* 

/OOOl 

/a03A 

/0015 

STGBD 

6 

STGXX 

6 

STGXX 

STGPN 

STGRD 

STGSW 

STGHL 

2 

2 

STGRD 

STGCR 

1 

STGRD 
STGSW 
16 



BIT SWITCH STG 

ADRS LOCATION 

STORAGE PATTERN 

SIZE OF CORE 

BIT 15- HALT 

BIT 14- USE 1 AORS 

*A* DC /3A00 RD BIT SW 

CONSTANT 
♦A* LD STGXX 

* PATTERN TO USE 

* UNLESS ALTERNATE 

* IS SELECTED 



READ BIT SWS 

GET BIT SW SETTINGS 

SET HALT IF B 15 ON 



ADJ CORE SIZE 

STORE CORE SIZE 

SFT SWS FOR PATTERN 

♦ OR ADDRESS 
READ BIT SWS 

GET BIT SW SETTINGS 

* ANO SAVF IN PEG 



3A002440 
3A002450 
3A002460 
3A002470 
3A002480 
3A002490 
3A002500 
3A002510 
3A002520 
3A002530 
3A002540 
3A002550 
3A002560 
3A002570 
3A002580 
3A002590 
3A002600 
3A002610 
3A002620 
3A002630 
3A002640 
3A002650 
3A002660 
3A002670 
3A002680 
3A002690 
3A002700 
3A002710 
3A002720 
3A002730 
3A002740 
3A002750 
3A002760 
3A002770 
3A002780 
3A002790 
3A002800 
3A002810 
3A002820 
3A002830 
3A002840 
3A002850 
3A002860 
3A002870 
3AO0288O 
3A002890 
3A002900 
3A002910 
3A002920 
3A002930 
3A002940 
3A002950 
3A002960 
3A002970 
3A002980 
3A002990 
3A003000 
3A003010 
3A003020 
3A003030 
3A003040 
3A003050 
3A003060 
3A003070 
3A003080 
3A003090 
3A003100 
3A003110 



OOIA 





COEA 


OOIB 





1801 


doic 





4804 


OOID 





7003 


OOIE 





1800 


OOIF 





D0E3 


0020 





7002 


0021 





laDO 


0022 





DOEl 


0023 





COEO 


0024 





DODO 


0025 





CODD 


0026 





0002 


0027 





00C2 


0028 





1000 


0029 





FODC 


002A 





0002 


002B 





0OC2 


00?C 





F0D9 


002D 





F0D5 


002E 





4320 


002F 





3006 


0030 





con4 


0031 





1801 


0032 





4804 


0033 





7006 


0034 





coco 


0035 





90D0 


0036 





DOCB 


0037. 





9006 


0038 





4830 


0039 





70EB 


003A 





COCA 


003B 





4804 


003C 





3002 


003D 





7 OF 5 


003F 





003E 



003F 





C009 


0040 





DOCS 


0041 





COC? 


0042 





1008 


0043 





D0C3 


0044 





C3E1 


0045 





1808 


0046 





DRDF 


0047 





D8E2 


048 





6009 


0049 





COFE 


004A 





0000 


004B 





0040 


004C 





9000 


004D 





2 000 


004E 





2000 


004F 





1000 





LD 


STGHL 




SRA 


1 




BSC 


E 




MDX 


STG7 




RTF 


16 




STO 


STGPN 




MDX 


STGO 


STG7 


RTE 


16 




STO 


STGCR 


STGO 


LD 


STGCR 




STO 


STGLC 


STGl 


LD 


STGPN 


STG2 


DC 


/00D2 




DC 


/00C2 




NOP 






FOR 


STGRD 


STG3 


DC 


/00D2 




DC 


/0 0C2 




FOR 


STGRD 




FOR 


STGPN 




BSC 


Z 




WAIT 


6 




LD 


STGHL 




SRA 


1 




BSC 


E 




MDX 


STGIO 




LD 


STGLC 




S 


STGRD 




STO 


STGLC 




S 


STGPG 




BSC 


Z- 




MDX 


STGl 


STG 10 


LO 


STGHL 




BSC 


f 




WAIT 


2 




MDX 


STGO 


STGPG 


DC 


STGPG 


♦ 






* 
STGBD 




INITIAL 


LO 


STGSP 




STO 


STGST 




LD 


STGRD+1 




SLA 


8 




STO 


STGRD+1 




LOD 


STG? 




RTE 


24 




STD 


STG? 




STD 


STG 3 


STGRS 


LDX 


STGST 


STGSP 


LD X 


STGXX-1 


+*#««t*************** 




DC 







DC 


/0040 




DC 


/9000 




DC 


/2000 




DC 


/2000 




DC 


/lOOO 



GET CNTL WORD 

USE SWS AS ADRS 

* YES 

♦ NO 



SET ADRS IN CORE SIZE 

LD CORE SIZE 

STORE IN XR 2 

LO PATTERN TO USE 
*A* TO STO ? 
*A* TO LD 2 

CHG BIT 15 

*A* TO STO 2 

*A* TO LD 2 

CHG BIT 15 BACK 

CK STARTING PATTERN 

IS PATTERN THE SAME 

* NO 
« YFS 

USE ONLY 1 AORS 

* YES 

* NO, GET AORS 
REDUCE ADRS 
STORE IN XR 2 
SUB PROG SIZE 
REACHED LAST AORS 

* NO 

* YES 

HALT PROGRAM 

* YES 

* NO 

LAST ADRS OF PROG 



BUILD RD BIT SW lOCC 



RUIID STO ANO LD 
* WITH XR 2 



GO TO PGM START 
GST 

«*********«***«**«**:)c ******** ****[**♦*♦ 

SPACE FILLER 

THE LAST FIVE WORDS ARE 

* USED FOR PROGRAM 

* IDENTIFICATION. THREE 

* FOR THF PIO AND TWO FOR 

* SEQUENCE. 



3A003120 
3A003130 
3A003140 
3A003150 
3A003160 
3A003170 
3A003180 
3A003190 
3A003200 
3A003210 
3A003220 
3A003230 
3A003240 
3A003250 
3A003260 
3A003270 
3A003280 
3A003290 
3A003300 
3A003310 
3A003320 
3A003330 
3A003340 
3A003350 
3A003360 
3A003370 
3A0033B0 
3A003390 
3A003400 
3A003410 
3A003420 
3A003430 
3A003440 
3A003450 
3A003460 
3A003470 
3A003480 
3A003490 
3A003500 
3A003510 
3A003520 
3A003530 
3A003540 
3A003550 
3A003560 
3A003570 
3A003580 
3A003590 
3A003600 
3A003610 
3A003620 
3A003630 
3A003640 
3A003650 
3A003660 
3A003670 
3A003680 
3A003690 
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6.02 CONSOLE 
PRINTER 



A. PRELOAD SWS 



B. LOADING 

C. WAITS 1 



D. RESTART 



E. COMMENTS 



* 
* 
* 
* 
* 

* 
* 

* 

* 
* 
* 

* 
* 

* 

* 
* 



* 

1. THE PROGRAM PRINTS ALTERNATE CHARACTERS OR 
EXECUTES ALTERNATE CONTROL FUNCTIONS WHICH 
HAVE BEEN SELECTED IN THF BIT SWITCHES. 

2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 
DELAY BETWEEN XIO WRITE EXECUTIONS. 

3. AN OPTION IS AVAILABLE TO HALT THE PROGRAM 
AFTER THE COMPLETION OF THE EXECUTION OF 
AN ALTERNATE XIO SEQUENCE. 



1. IF DELAY IS DESIRED, SET DELAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 
♦NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 

SWS 1 THRU 13 ALL OFF, NO DELAY. 

2. IF A WAIT AFTER EACH PROGRAM PASS IS 
DESIRED, TURN ON BIT SWITCH 15. 

LOAD IPL FROM CARD OR PAPER TAPE. 

SET DESIRED CHAR/CONTROL CODES IN BIT SWITCHES 
THRU 15. SEE PAGE 2 FOR BIT SW CODES. 

1ST CHAR/CONTROL IN SWS THRU 7. 

2N0 CHAR/CONTROL IN SWS « THRU 15. 
DEPRESS START. 

NORMAL PROGRAM WAIT IF I PASS OPTION HAS BEEN 
SELECTED. DEPRESS START TO MAKE ANOTHER PASS. 

NO INTERRUPT GENERATED AFTER XIO WRITE 
COMMAND WAS GIVEN. SEE COMMENTS. 

1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD 
SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESET PUSH BUTTONS. 

2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 



0000 

0000 b 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 
OOOA 
OOOB 
OOOC 
0000 
OOOE 
OOOF 
0010 
0011 



1. LAST DSH SENSED IS DISPLAYED IN THE Q REG. 

2. IF PROGRAM LOOPS, CHECK Q REG FOR NOT RDY 
OR BUSY DSW BITS BEING ON. 

3. TO RUN PROGRAM WITH INTERRUPT DELAY SM ON 
OR TO BYPASS THE INTERRUPT WAIT, LOAD /602D 
INTO LOCATION /002A AND DO A PROGRAM RESTART. 

4. TO SET UP LOOP TO EXECUTE XIO, LOAD /602D 
INTO LOCATION /002A AND LOAD /lOOO INTO 
LOCATION /0031 AND 00 A PROGRAM RESTART. 



6012 
0001 
0006 
003A 
0006 
9000 
0000 
FOlO 
0000 
6010 
0000 
0000 
002C 
I BIO 
OOFA 
7012 
3002 
700F 



ORG 
CPBGN LDX 
CPONE DC 
CPBSW DC 

DC 
CPWRT DC 

DC 
CPDSW DC 

DC 
CPSET DC 
CPCTL LDX 

DC 
CPDSV DC 

DC 
CPALT SRA 

STO 

MDX 

WAIT 

MDX 





CPBtD 

I 

CPDSW 

/003A 

CPDSW 

/9000 

*-♦ 

/FOlO 
*-* 

CPRDS 

♦-♦ 

♦-♦ 

CPIN4 

16 

CPCTL 

CPSEN 

2 

CPSEN-l 



*A* TO LDX CPRDS /6024 
CONSTANT ONE 
BIT SW SAVE AREA 

*A* TO /3A00 RD BIT SW 
CHARACTER ADDRESS 

*A* TO /0900 XIO PRINT 
BIT SW REAOIN AREA 

*A* TO /OFOl XIO SENSE 
SW OPTION/DELAY SAVE 
2ND CHAR SW/RESET MOD 

DSW SAVE AREA 

INTERRUPT ADDRESS 

CLR 2N0 CHAR SW 

* 

GO CHK IF PRINT BUSY 

COMPLETED PROG PASS 

RESTART PROGRAM 



3A003710 

3A003720 

3A003730 

3A003740 

3A003750 

3A003760 

3A003770 

3A003780 

3A003790 

3A003800 

3A0038I0 

3A003820 

3A003830 

3A003840 

3A003850 

3A003860 

3A003870 

3A003880 

3A003890 

3A003900 

3A003910 

3A003920 

3A003930 

3A003940 

3A003950 

3A003960 

3A003970 

3A003980 

3A003990 

3A004000 

3A0040I0 

3A004020 

3A004030 

3A004040 

3A004050 

3A004060 

3A004070 

3A004080 

3A004090 

3A004100 

3A004110 

3A004t20 

3A004130 

3A004140 

3A004150 

3A004160 

3A004170 

3A004180 

3A004190 

3A004200 

3A004210 

3A004220 

3A004230 

3A004240 

3A004250 

3A004260 

3A004270 

3A004280 

3A004290 

3A004300 

3A004310 

3*004320 

3A004330 

3A004340 

3A004350 

3A004360 

3A004370 

3A004380 



0012 C0F2 


CPBLD LD 


CPWRTtl 


BUILD WRITE lOCC 


3A004390 


0013 1804 


SRA 


4 


* 


3A004400 


0014 DOFO 


STO 


CPWRTCl 


* 


3A004410 


0015 COFl 


LD 


cposwei 


BUILD SENSE RESET 


3A004420 


0016 1804 


SRA 


4 


♦ OSW lOCC 


3A004430 


0017 DOEF 


STO 


CPDSH61 


♦ 


3A004440 


0018 COEA 


LD 


CPBSWEl 


BUILD READ BIT SW 


3A004450 


0019 1008 


SLA 


8 


♦ IDCC 


3A004460 


OOIA 00E8 


STO 


CPBSWei 


« 


3A004470 


OOIB COED 


LD 


CPCTL 


SET UP RESET AND 


3A0044aO 


OOIC D0E3 


STO 


CPBGN 


♦ START BRANCH 


3A004490 


0010 08E4 


CPRDS XIO 


CPBSW 


READ BIT SWS FOR 


3A004S00 


OOIE C0E7 


LD 


CPDSW 


* PROG OPTS/DELAY 


3A004510 


OOIF D0E8 


STO 


CPSET 


* 


3A004520 


0020 3001 


WAIT 


1 


SET CHARS IN SWS 


3A004530 


0021 08E0 


XIO 


CPBSW 


READ BIT SWS 


3A004540 


0022 C8E7 


CPSEN LDD 


CPOSV-1 


LOAD LAST DSW IN Q 


3A004550 


0023 08E2 


XIO 


CPDSW 


CHK DEVICE NOT BUSY 


3A004560 


0024 D0E6 


STO 


CPDSV 


* OR NOT READY AND 


3A004570 


0025 1004 


SLA 


4 


* SAVE DSW 


3A004580 


0026 4820 


BSC 


z 


* 


3A004590 


0027 70FA 


MDX 


CPSEN 


* 


3A004600 


0028 C8E1 


LDD 


CPOSV-1 


LOAD LAST DSW IN Q 


3A004610 


0029 080A 


XIO 


CPWRT 


WRITE CHARACTER 


3A004620 


002A 3003 


WAIT 


3 


WAIT FOR INTERUPT 


3A004630 


0028 7006 


MDX 


CPRET 


BRANCH TO DELAY 


3A004640 


002C 0000 


CPIN4 DC 


♦-* 


INTERRUPT LEVEL 4 


3A004650 


002D 08D8 


XIO 


CPDSW 


SENSE RESET OSW 


3A004660 


002E DODC 


STO 


CPDSV 


SAVE DSW 


3A004670 


002F C8DB 


LDD 


CPDSV 


LOAD DSW INTO Q REG 


3A004680 


0030 4850 


BOSC 


- 


RESET INT LEVEL 


3A004690 


0031 70FB 


MDX 


CPIN4ei 


RESENSE DSW 


3A004700 


0032 C8D7 


CPRET LOD 


CPDSV-1 


LOAD LAST DSW IN Q 


3A004710 


0033 C0D4 


LD 


CPSET 


SET UP DELAY AND 


3A004720 


0034 1804 


SRA 


4 


♦ EXECUTE DELAY 


3A004730 


0035 1003 


StA 


3 


* 


3A004740 


0036 90CA 


CPLOP S 


CPONE 


* 


3A0047S0 


0037 4810 


BSC 


- 


• 


3A004760 


0038 70FD 


MDX 


CPLOP 


* 


3A004770 


0039 COCC 


LO 


CPDSW 


LO, SET UP 2N0 CHAR 


3A004780 


003A 1008 


SLA 


8 


• 


3A004790 


003B DOCA 


STO 


CPDSW 


* 


3A004800 


003C COCC 


LD 


CPCTL 


CHK IF 2ND CHAR SW 


3A004810 


003D 4820 


BSC 


Z 


* OFF 


3A0Q4820 


003E 70CE 


MDX 


CPALT 


NO, BRANCH 


3A004830 


003F 68C9 


STX 


CPCTL 


YES, SET 2ND CHAR SW 


3A004840 


0040 C0C7 


LD 


CPSET 


CHK I PASS OPTION SW 


3A004850 


0041 4804 


BSC 


E 


* 


3Aa04860 


0042 70CD 


MDX 


CPALT£3 


SW ON, GO TO WAIT 2 


3A004870 


0043 70DD 


MDX 


CPSEN-1 


SW OFF, LOOP PROGRAM 


3A004880 




******************1Ht****^**1HH*t^**ti1f**tiiHf*1H^^^^^^tL^^, 


3A004890 


0044 0000 


DC 





SPACE FILLER 


3A004900 


0045 0000 


DC 





* 


3A004910 


0046 0000 


DC 





* 


3A004920 


0047 0000 


DC 





* 


3A004930 


0048 0000 


DC 





* 


3A004940 


0049 0000 


DC 





* 


3A004950 


004A 0000 


DC 





* 


3A004960 


004B 0040 


DC 


/0040 


THE LAST FIVE WORDS ARE 


3A004970 


004C 9000 


DC 


/9000 


* USED FOR PROGRAM 


3A004980 


004D 2000 


DC 


/2000 


* IDENTIFICATION. THREE 


3A004990 


004E 2000 


DC 


/2000 


• FOR THE PID AND TWO FOR 


3A00'5OOO 


004F 0800 


DC 


/0800 


* SEQUENCE. 


3A005010 
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6.03 KEYBOARD 



A. PRELOAD SWS 

R. LOADING 

C. WAITS 1 



D. RESTART 



E. COMMENTS 



0000 





6024 


0001 





0001 


0002 





0004 


0003 





003A 


0004 





6032 


0005 





FOlO 


0006 





0000 


0007 





COOO 


0008 





OOOA 


0009 





AOOO 


OOOA 





0000 


OOOR 





0000 


OOOC 





0011 


oonn 





C8FC 


OOOF 





1800 


OOOF 





D8FA 


0010 





7011 


0011 





0000 


0012 





08EF 


0013 





08F0 


0014 





D0F6 


0015 





1001 


0016 





4850 


0017 





7001 


0018 





7003 


0019 





1001 


OOIA 





4850 



1. THF PROGRAM SELECTS KEYBOARD AND DISPLAYS 
THF CHARACTER READ OR THE DSW SENSED WHEN A 
KEY IS DEPRESSED. 

2. THE PROGRAM ALSO CHECKS THF INTERRUPT REQUEST 
KEY OPERATION. 

3. AN OPTION IS AVAILABLE TO HALT PROGRAM BEFORE 
A KEY IS DEPRESSED, OR LOOP IN A SELECT 
KEYBOARD AND SENSE DSW MODE. 

4. SEE PAGE 2 FOR KEYBOARD CHAR CODES. 



NONE, SWITCHES MAY Bt CHANGED AT ANY TIME. 

LOAD IPL FROM CARD OR PAPER TAPE. 

SET DESIRED PROGRAM OPTIONS IN BIT SWS 14 AND 15 
14 ON — DISPLAY LAST CHAR READ IN Q REG. 

14 OFF - DISPLAY LAST DSW IN Q REG. 

15 ON — WAIT AFTER EACH PROGRAM PASS. 

15 OFF - LOOP IN SELECT KEYBOARD AND SENSE 
DSW MODE. 
DEPRESS START. 

NORMAL PROGRAM WAIT IF BIT SW 15 IS ON. SELECT 
LIGHT SHOULD BF UN. 

LAST CHAR READ AND LAST DSW ARE DISPLAYED IN 
ACCUMULATOR OR Q REG, DEPENDING ON BIT SW 14. 
DEPRESS DESIRED KEYBOARD KEY OR DEPRESS INT. REQ 

1. TO RESTART PROGRAM, DEPRESS IMMEDIATE STOP 
AND RESET PUSH BUTTONS. 

2. DEPRESS START. 

1. LAST DSW SENSED OR LAST CHARACTER READ IS 
DISPLAYED IN THE REG. SEE WAIT I. 

2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON, 
EXECUTE BIT SW 15 OFF OPTION. 



************^***i' **:****»* t*'f*^if*1t****^i*l>:^t^l^*^*tH:*i^:^t:i^ 



ORG 

KYBGN LDX 

KYONE DC 

KYBSW DC 
DC 

KVDSW LDX 
DC 

KYSEL DC 
DC 

KYRD DC 
DC 

KYKEY DC 

KYOSV DC 
DC 

KYDCH LDD 
RTF 
STD 
MOX 

KYIN4 DC 
XIO 
XIO 
STO 
SLA 
BOSC 
MDX 
MOX 

KYREO SLA 
BOSC 





KYBLD 

1 

KYDSW 

/D03A 

KYRST 

/FOlO 



/COOO 

KYKEY 

/AOOO 

♦-* 

*-* 

KYIN4 

KYKEY 

16 

KYKEY 

KYDSP 

*-♦ 

KYBSW 
KYDSW 
KYDSV 
1 

KYRFQ 
KYRDW 
1 



♦A* TO /6032 LDX KYRST 

CONSTANT 1 

BIT SW SAVE AREA 
*A* TO /3A00 RD BIT SWS 

RESET VECT/BIT SWS 
*A* TO /OFOl XIO SENSE DSW 

*A* TO /OCOO XIO SEL KYBD 

KEYED RD/IN AREA 
*A* TO /OAOO XIO KEY RD 

KEYED RD/IN AREA 

LAST DSW SENSED 

INTERRUPT ADDR 

LOAD LAST CHAR READ 

SWAP LAST CHAR/DSW 

* 

INTERRUPT ENTRY 

READ BIT SWS 

SENSE RESET DSW 

SAVE DSW 

CK IF RESPONSE 

♦ 

NO, CHK IF REQUEST 

YES, READ CHAR CODE 

CHECK IF REQUEST 



3A005030 
3A005040 
3A005050 
3A005060 
3A005070 
3A005080 
3A005090 
3A005100 
3A005110 
3A005120 
3A005130 
3A005140 
3A005150 
3A005160 
3A005170 
3A005180 
.3A005190 
3A005200 
3A005210 
3A005220 
3A005230 
3A005240 
3A005250 
3A005260 
3A005270 
3A005280 
3A005290 
3A005300 
.3A005310 
3A005320 
3A005330 
3A005340 
3A005350 
3A005360 
3A005370 
3A005380 
3A005390 
3A005400 
3A005410 
3A005420 
3A005430 
3A005440 
3A005450 
3A005460 
3A005470 
3A005480 
3A005490 
3A005500 
3A005510 
3A005520 
3A005530 
3A005540 
3A005550 
3A005560 
3A005570 
3A0055aO 
3A005590 
3A005600 
3A005610 
3A005620 
3A005630 
3A005640 
3A005650 
3A005660 
3A005670 
3A005680 
3A005690 
3A005700 



OOIH 


701A 




MDX 


KYSET 


NO, RESENSE DSW 


3A005710 


OOIC 


08EB 


KYRDW 


XIO 


KYRD 


YES, READ LAST CHAR 


3A005720 


OOID 


0«E8 




XIO 


KYSEL 


SELECT KEYBOARD 


3A005730 


00 IE 


C0F5 




LD 


KYDSW 


CK IF CHAR/DSW IN 


3A005740 


OOIF 


lOOF 




SLA 


14 


* 


3A005750 


0020 


4S?H 




8SC 


U 


* 


3A005760 


0021 


70FH 




MDX 


KYDCH 


DISPLAY CHAR IN 


3A005770 


0022 


C8E7 


KYDSP 


LOO 


KYKEY 


DISPLAY DSW IN Q 


3A005780 


0023 


7012 




MUX 


KYSET 


GO SELECT KEYBOARD 


3A005790 


0024 


CODE 


KYBLD 


LD 


KYBSWSl 


BUILD lOCCS AND 


3A005800 


0025 


lOOB 




SLA 


8 


* RESET/START VECT 


3A005810 


0026 


OODC 




STO 


KY8SW81 


4" 


3A005820 


0027 


CODD 




LD 


KYDSWKl 


* 


3A005830 


0021 


1804 




SRA 


4 


* 


3A005840 


0029 


DOOB 




STO 


KYDSWei 


* 


3A005850 


002A 


CODC 




LO 


KYSFLCl 


* 


3A005860 


00?B 


1804 




SRA 


4 


* 


3A005870 


002C 


DOOA 




STO 


KYSELEl 


* 


3A005880 


0020 


CODfl 




LD 


KYROei 


* 


3A005890 


002E 


1304 




SRA 


4 


* 


3A005900 


002F 


0009 




STO 


KYROei 


* 


3A005910 


0030 


C0D3 




LD 


KYDSW 


* 


3A005920 


0031 


DOCE 




STO 


KYBGN 


* 


3A005930 


0032 


3001 


KYRST 


WAIT 


1 


SET PROGRAM OPTIONS 


3A005940 


0033 


0802 




XIO 


KYSEL 


SELECT KEYBOARD 


3A005950 


0034 


1010 




SLA 


16 


CL LAST CHAR KEYED 


3A005960 


0035 


D0D4 




STO 


KYKEY 


* 


3A00 5970 


0036 


08CB 


KYSET 


XIO 


KYBSW 


RO BIT SWS FOR OPTS 


3A005980 


0037 


COCC 




10 


KYDSW 


CHK IF SEL/RD LOOP 


3A005990 


0038 


lOOF 




SLA 


15 


* 


3A006000 


39 


4810 




BSC 


- 


* OPTION IS SELECTED 


3A006010 


003A 


70D7 




MOX 


KYIN4ei 


YES, GO SENSE DSW 


3A006020 


003B 


C8CE 




LDD 


KYKEY 


DISPLAY CHAR/DSW IN Q 


3A006030 


003C 


3002 




WAIT 


2 


DEPRESS DESIRED KEY 


3A006040 


003D 


70D4 




MOX 


KYIN4&1 


GO SENSE DSW 


3A006050 






*******1ft****^*:»^#^^:^t:********^*****^*i***^^^,^,t:^^,^^^ 


3A006060 


003E 


0000 




DC 





SPACE FILLER 


3A006070 


003F 


0000 




DC 





* 


3A005080 


0040 


0000 




DC 





* 


3A006090 


0041 


0000 




DC 





* 


3A006100 


0042 


0000 




DC 





♦ 


3A006110 


0043 


0000 




DC 





* 


3A006120 


0044 


0000 




DC 





♦ 


3A006130 


0045 


0000 




DC 





* 


3A006140 


0046 


0000 




DC 





* 


3A006150 


0047 


0000 




DC 





* 


3A006160 


0048 


0000 




DC 





* 


3A006170 


0049 


0000 




DC 





* 


3A006180 


004A 


0000 




DC 





♦ 


3A006190 


004B 


0040 




DC 


/0040 


THF LAST FIVE WORDS ARE 


3A006200 


004C 


9000 




DC 


/9000 


* USED FOR PROGRAM 


3A006210 


004D 


2000 




DC 


/2000 


* IDENTIFICATION. THREE 


3A006220 


004F 


2000 




DC 


/2000 


* FOR THE PID AND TWO FOR 


3A006230 


004F 


0040 




DC 


/0040 


* SFQUENCE. 


3A006240 
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6.0'» PAPER TAPE 
PUNCH 



1. 



A. PRELOAD SWS 



B. LOADING 

C. WAITS 1 



D. RESTART 



E. COMMENTS 



0000 






0000 





600D 


0001 





0001 


0002 





0006 


0003 





003A 


0004 





0006 


0005 





0019 


0006 





0000 


0007 





OOIF 


0008 





0000 


0009 





601C 


OOOA 





0000 


OOOB 





0000 


OOOC 





0033 


OOOD 





C0F7 



4<^**4t*4i* *«*:««««« *#:)i«*<>* A A*««*4'^*:»*#«ir4<4'4>4>*****4'***# 

* 

THE PROGRAM PUNCHES ALTERNATE CHARACTERS 

WHICH HAS BEEN SELECTED IN THE BIT SWS, 

OR A BINARY PATTERN. 

AN OPTION IS AVAILABLE TO SET UP A VARIABLE 

DELAY BETWEEN XIO PUNCH EXECUTIONS. 

AN OPTION IS AVAILABLE TO HALT THE PROGRAM 

AFTER THE COMPLETION OF THE EXECUTION OF 

A PROGRAM PASS. 

SEE PAGE 2A FOR BIT SW CONTROL BINARY PATTERN 

THIS TAPE MAY BE USED IN THE PAPER TAPE 

READER SCOPE LOOP, 6.05. 



3. 



4. 
5. 



1. 



3. 



IF DFLAY IS DESIRED, SET DELAY CONTROL 
VALUE IN BIT SWITCHES I THRU 13. 
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 
SWS I THRU 13 ALL OFF, NO DELAY. 
IF A BINARY PATTERN IS DESIRED, TURN ON 
BIT SWITCH 14. 

IF A WAIT AFTER EACH PROGRAM PASS IS 
DESIRED, TURN ON BIT SWITCH 15. 



* 
* 
* 
* 

* 
* 

* 
* 
* 
* 
♦ 
* 
* 

* 

* 

* 
* 

* 
* 

* 
* 

* 

* 
* 

* 

* 
* 

* 
* 
* 
♦*♦*«*♦♦*♦**♦**♦♦*♦*****♦•♦**♦**♦***♦*♦♦♦♦*♦*♦*♦*♦* 

ORG 

TPBGN LDX TPBLD *A* TO LDX TPRDS /6024 

TPONE DC 1 CONSTANT ONE 

TPBSW DC TPDSW BIT SW SAVE AREA 

DC /003A ♦A* TO /3A00 RD BIT SWS 

TPWRT DC TPDSW CHARACTER ADDRESS 

DC /0019 *A« TO /1900 XIO PUNCH 

TPDSW DC *-* BIT SW READIN AREA 

DC /OOIF *A* TO /IFOl SENSE DSW 

TPSET DC *-* SW OPTION/DELAY SAVE 

TPCTL LDX TPRDS 2ND CHAR SW/RESET MOD 

TPlOO DC *-♦ *A* TO /OlOO PATT BUILD 

TPDSV DC *-* DSW SAVE AREA 

DC TPIN4 INTERRUPT ADDRESS 

TPBLD LO TPWRTCl BUILD WRITE lOCC 



LOAD IPL FROM CARD OR PAPER TAPE. 

SET DESIRED CHARACTERS TO BE PUNCHED IN BIT SWS 
THRU 15. SEE PAGE FOR BIT SW CODES. 

1ST CHARACTER IN SWS THRU 7. 

2N0 CHARACTER IN SWS 8 THRU 15. 
MAKE PAPFR TAPE PUNCH READY. 
DEPRESS START. 

NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN 
SELECTED. DEPRESS START TO MAKE ANOTHER PASS. 

NO INTERRUPT GENERATED AFTFR XIO PUNCH 
COMMAND WAS GIVEN. SEE COMMENTS. 

1. TO RESTART PROGRAM OR RESET INITIAL PRElOAD 
SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESET PUSH BUTTONS. 

2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
OR rn BYPASS THE INTERRUPT WAIT, LOAD /6034 
INTO LOCATION /0031 AND DO A PROGRAM RESTART. 

3. TO SFT UP LOOP TO EXECUTE XIO, LOAD /6034 
INTO LOCATION /0031 AND LOAD /603A INTO 
LOCATION /0039 AND 00 A PROGRAM RESTART. 



3A006260 
3A006270 
3A006280 
3A006290 
3A006300 
3A006310 
3A006320 
3A006330 
3A006340 
3A006350 
,3A006360 
3A006370 
3A006380 
3A006390 
3A0a6400 
3A006410 
3A006420 
3A006430 
3A006440 
3A006450 
3A006460 
3A006470 
3A006480 
3A006490 
3A006500 
3A006510 
3A006520 
3A006530 
3A006540 
3A006550 
3A006560 
3A006570 
3A006580 
3A006590 
3A006600 
3A006610 
3A006620 
3A006630 
3A006640 
3A006650 
3A006660 
3A006670 
3A006680 
3A006690 
3A006700 
3A006710 
3A006720 
3A006730 
3A006740 
3A006750 
3A006760 
3A006770 
3A006780 
3A006790 
3A006800 
3A006810 
3A006820 
3A006830 
3A006840 
3A006850 
3A006860 
3A006870 
3A006880 
3A006890 
3A006900 
3A006910 
3A006920 
3A006930 



OOOE 





1008 




SLA 


8 


* 


3A006940 


GOOF 





D0F5 




STO 


TPHRTtl 


# 


3A006950 


0010 





C0F6 




LD 


TPDSMCl 


BUILD SENSE RESET 


3A006960 


0011 





1008 




SLA 


a 


* 


3A006970 


0012 





E8EE 




OR 


TPONE 


• 


3A006980 


0013 





D0F3 




STO 


TPOSWCl 


* 


3A006990 


0014 





COEE 




LO 


TPBSWai 


BUILD READ BIT SM 


3A007000 


0015 





1008 




SLA 


8 


* lOCC 


3A007010 


0016 





OOEC 




STO 


TPBSWei 


. * 


3A007020 


0017 





C0E9 




LO 


TPONE 


BUILD PATTERN WORD 


3A007030 


0018 





1008 




SLA 


8 


* 


3A007040 


0019 





DOFO 




STO 


. IP 100 


* 


3A007050 


OOIA 





COEE 




LO 


TPCTL 


SET UP RESET AND 


3A007060 


OOIB 





00E4 




STO 


TPBGN 


* START BRANCH 


3A007070 


OOIC 





08E5 


TPRDS 


XIO 


TPBSW 


READ BIT SWS FOR 


3A007080 


OOID 





C0E8 




LD 


TPDSW 


♦ PROG OPTS/DELAY 


3A007090 


OOIE 





D0E9 




STO 


TPSET 


* 


3A007100 


OOIF 





3001 




WAIT 


1 


SET CHARS IN SWS 


3A007110 


0020 





1010 




SLA 


16 


CLR PUNCH HO LOC 


3A007120 


0021 





00E4 




STO 


TPDSW 




3A007130 


0022 





C0E5 




LD 


TPSET 


CHK PUNCH OPTION 


3A007140 


0023 





lOOE 




SLA 


14 


♦ 


3A007150 


0024 





4828 




BSC 


tl 


* 


3A007160 


0025 





7002 




HDX 


TPPAT 


BIT 14 ON, PCH PATT 


3A007170 


0026 





080B 




XIO 


TPBSW 


READ BIT SMS 


3A007180 


0027 





7005 




MDX 


TPSEN 


GO SENSE DSM 


3A007190 


0028 





COOD 


TPPAT 


LD 


TPDSW 


LOAD PATTERN WORD 


3A007200 


0029 





80E0 




A 


TPlOO 


BUILD NEXT WORD 


3A007210 


002A 





DOOB 




STO 


TPDSW 


* 


3A007220 


002B 





1010 


TPALT 


SLA 


16 


CLR 2ND CHAR SW 


3A007230 


002C 





OOOC 




STO 


TPCTL 


« 


3A007240 


0020 





08D8 


TPSEN 


XIO 


TPDSW 


SENSE DSW 


3A007250 


002E 





DODC 




STO 


TPDSV 


SAVE DSW 


3A007260 


002F 





C8DA 




LDD 


TPDSV-1 


LOAD LAST DSW IN Q 


3A007270 


0030 





08D3 




XIO 


TPWRT 


PUNCH CHARACTER 


3A007280 


0031 





3003 




WAIT 


3 


WAIT FOR INTERUPT 


3A007290 


0032 





7007 




MDX 


TPRET 


BRANCH TO DELAY 


3A007300 


0033 





0000 


TPIN4 


DC 


*-* 


INTERRUPT LEVEL 4 


3A007310 


0034 





C805 




LDD 


TPDSV-1 


LOAD LAST DSW INTO Q 


3A007320 


0035 





0800 




XIO 


TPDSW 


SENSE RESET DSW 


3A007330 


0036 





D0D4 




STO 


TPDSV 


SAVE DSW 


3A007340 


0037 





1003 




SLA 


3 


CK IF PUNCH RESPONSE 


3A007350 


0038 





4850 




BOSC 


- 


RESET INT LEVEL 


3A007360 


0039 





70FA 




MDX 


TP1N461 


RESENSE DSW 


3A007370 


003A 





COCO 


TPRET 


LO 


TPSET 


SET UP DELAY AND 


3A007380 


003B 





1801 




SRA 


1 


♦ EXECUTE DELAY 


3A007390 


003C 





90C4 


TPLOP 


S 


TPONE 


* 


3A007400 


0030 





4810 




BSC 


- 


* 


3A007410 


003E 





70FD 




MDX 


TPLOP 


* 


3A007420 


003F 





C0C9 




LO 


TPCTL 


CHK IF 2ND CHAR SW 


3A007430 


0040 





4818 




BSC 


G- 


* CLEARED 


3A007440 


0041 





7004 




MDX 


TPNOT 


YES 


3A007450 


0042 





C0C3 




LO 


TPDSW 


NO, SET UP 2ND CHAR 


3A007460 


0043 





1008 




SLA 


8 


* 


3A007470 


0044 





DOC I 




STO 


TPDSW 


* 


3A007480 


0045 





70E5 




MDX 


TPALT 


PUNCH 2ND CHAR 


3A007490 


0046 





68C2 


TPNOT 


STX 


TPCTL 


SET 2N0 CHAR SW 


3A007500 


0047 





COCO 




LO 


TPSET 


CHK 1 PASS OPTION SW 


3A0075ia 


0048 





4804 




BSC 


E 


♦ 


3A007520 


0049 





3002 




WAIT 


2 


COMPLETED PROG PASS 


3A007530 


004A 





7007 




MOX 


TPRDSe6 


LOOP PROGRAM 


3A007540 








««4<*«4<4<**«*****4c*«i4i«***4<********4>***4t4<*«>«*4>*4<****** 


3A007550 


004B 





0040 




DC 


/0040 


THE LAST FIVE WORDS ARE 


3A007560 


004C 





9000 




DC 


/9000 


♦ USED FOR PROGRAM 


3A007570 


004D 





2000 




DC 


/2000 


* IDENTIFICATION. THREE 


3A007580 


004E 





2000 




DC 


/2000 


♦ FOR THE PIO AND TWO FOR 


3A007590 


004F 





0020 




DC 


/0020 


♦ SEQUENCE. 


3A007600 



DATE 
EC NO. 



15F6B68 
420403 



25JUL69 
571053 



PROG ID 
PAGF 



03A0-0 
6 
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6.05 P^Pt:R TAPE 
READER 



* 1. THE PROGRAM RFAOS CHARACTERS WHICH HAVE BEEN 
PUNCHED IN The TAPE AND COMPARES THEM WITH 
A BINARY PATTERN OR ALTERNATE BIT SWITCH 
CHARACTERS. 

AN OPTION IS AVAILABLE TO SET UP A VARIABLE 
DELAY BETWEEN XIO READ EXECUTIONS. 
AN OPTION IS AVAILABLE TO BYPASS WAIT 6 
ON COMPARE ERRORS. 



PRFLDAO SWS 



R. LOADING 

C. WAITS 1 



D. RESTART 



E. COMMENTS 



1. IF DELAY IS DESIRED, SET DELAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 

SWS 1 THRU 13 ALL OFF, NO DELAY. 

2. IF A BINARY PATTERN IS DESIRED, TURN ON 
BIT SWITCH 14. 

3. IF BYPASS COMPARE ERROR WAIT 6 OPTION IS 
DESIRED, TURN ON BIT SWITCH 15. 

LOAD IPL FROM CARD OR PAPER TAPE. 

LOAD PAPER TAPE INTO READER. SEE PAGE 2A FOR 

LOADING A BINARY PATTERN TAPE. 

PLACE 1ST CHARACTER TO BF READ FROM THE TAPE, 

JUST BEHIND SENSING PINS. 

SET DESIRED CHARACTERS TO COMPARE IN BIT SWS 

THRU 15. SEE PAGE 2A FOR BIT SW CODES. 

1ST CHARACTER IN SWS THRU 7. 

2N0 CHARACTER IN SWS 8 THRU 15. 
DEPRESS START. 

NO INTERRUPT GENERATED AFTER XIO TAPE ADVANCE 
COMMAND WAS GIVEN. SEE COMMENTS. 

COMPARE ERROR. ACCUMULATOR CONTAINS THE CHAR 
READ. THIS CHARACTER IS NOW LOCATED I CHARACTER 
PAST THE SENSING PINS. 

TO READ/COMPARE NEXT CHARACTER, DEPRESS START. 
TO LOOP ON COMPARE ERROR, SEE PRELOAD SWS. 



1. 



2. 
3. 

1. 
2. 



3. 



onoo 






0000 





6021 


0001 





60?F 


0002 





0809 


0003 





D021 


0004 





1001 


0005 





4850 


0005 





70F6 


0007 





0806 


0008 





CO IB 


0009 





7008 


OOOA 





0000 


OOOB 





FOOD 


OOOC 





0001 


OOOD 





F808 



TRBGN 
TRIN4 



TRADV 



TRDSW 



TO RESTART PROGRAM OR RESET INITIAL PRELOAD 

SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESET PUSH BUTTONS. 

SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

DEPRESS START. 

LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 

OR TO BYPASS THE INTERRUPT WAIT, LOAD /6002 

INTO LOCATION /0042 AND 00 A PROGRAM RESTART. 

TO SET UP LOOP TO EXECUTE XIO, LOAD /6002 

INTO LOCATION /0042 AND LOAD /601A INTO 

LOCATION /0006 AND DO A PROGRAM RESTART. 

ORG 

LDX TRRLD *A* TO /602F LDX TRRST 

LDX TRRST INTERRUPT ENTRY 

XTC TRDSW SENSE DSW 

STO TRDSV SAVE DSW 

SLA 1 CK FOR OP COMPLETE 

BOSC - * 

MOX TRIN4tl NO, RESFNSE DSW 

XIO TRRO YES, READ TAPE 

LD TRARA COMPARE TO EXPECTED 

MDX TRI4A GO TO TRI4A 

DC /DOOO BUILD CONSTANT 

DC /FOOD *A* TO /ICOO XIO ADVANCE 

DC /OOOl INT ADR/CONSTANT 1 

DC /F808 *A* TO /IFOl XIO SENSE 



3A00762O 
3A007630 
3A007640 
3A007650 
3A007660 
3A007670 
3A007680 
3A007690 
3A007700 
3A007710 
3A007720 
3A007730 
3A007740 
3A007750 
3A007760 
3A007770 
3A007780 
3A007790 
3A007800 
3A007810 
3A007820 
3A007830 
3A007840 
3A007850 
3A007860 
3A007870 
3A007880 
3A007890 
3A007900 
3A007910 
3A007920 
3A007930 
3A007940 
3A007950 
3A007960 
3A007970 
3A007980 
3A007990 
3A008000 
3A008010 
3A008020 
3A008030 
3A008040 
3A0080 50 
3A00S060 
3A008070 
3A008080 
3A008090 
3A008100 
3A008110 
3A008120 
3A008130 
3A008140 
3A008150 
3A008160 
3A008170 
3A008180 
3A00B190 
3AO08200 
3A008210 
3A008220 
3A008230 
3A008240 
3A008250 
3A008260 
3A008270 
3A008280 
3A008290 



OOOE 





0024 


TRRO 


DC 


TRARA 


READ/IN ADDR 


3A008300 


OOOF 





OOIA 




DC 


/OOIA 


*A* TO /lAOO XIO READ 


3A00a3l0 


0010 





0023 


TRBSW 


DC 


TRSBW 


BIT SW SAVE ADDR 


3A008320 


0011 





003A 




DC 


/003A 


*A* TO /3A00 RD BIT SWS 


3A008330 


0012 





FOlO 


TRI4A 


FOR 


TRSBW 


* 


3A008340 


0013 





4818 




BSC 


S- 


* 


3A008350 


0014 





7005 




MDX 


TRLOP-3 


OK, GO TO DELAY 


3A008360 


0015 





COOB 




LD 


TRBLD 


ERR, CK LOOP/ERR OPT 


3A008370 


0016 





4B04 




BSC 


E 


♦ 


3A008380 


0017 





7002 




MDX 


TRLOP- 3 


LOOP/FRR SELECTED 


3AO08390 


0018 





CHOB 




LOD 


TRARA 


LO WO READ AND DSW 


3A008400 


0019 





3006 




WAIT 


6 


COMPARE ERROR WAIT 


3A008410 


OOIA 





CB09 




LDD 


TRARA 


LOAD DSW INTO Q 


3A008420 


OOIB 





C005 




LD 


TRBLD 


SET UP DELAY 


3A008430 


OOlC 





1801 




SRA 


1 


* 


3A008440 


0010 





90EF 


TRLOP 


S 


TRDSW 


* 


3A008450 


OOIE 





4810 




BSC 


- 


* 


3A008460 


OOIF 





70F0 




MDX 


TRLOP 


♦ 


3A008470 


0020 





7014 




MDX 


TRSTR 


CK ON PATT OPT 


3A008480 


0021 





COEF 


TRBLD 


LD 


TRBSW£1 


BUILD PROGRAM 


3A008490 


0022 





1008 


TRIOO 


SLA 


8 


*A* TO /OlOO PATT. BUILD 


3A008500 


0023 





OOED 


TRSBW 


STO 


TRBSW61 


♦A* TO *-* COMP S/B WORD 


3A008510 


0024 





C0F8 


TRARA 


LD 


TRDSWEl 


♦A* TO *-♦ WORD READ 


3A008520 


0025 





1803 


TRDSV 


SRA 


3 


*A* TO *-* SAVED DSW 


3A008530 


0026 





D0E6 


TRCTL 


STO 


TRDSWEl 


*A* TO *-♦ ALT CHAR SW 


3A0085A0 


0027 





1008 




SLA 


8 


* 


3A008550 


0028 





D0F9 




STO 


TRIOO 


* 


3A008560 


0029 





caEo 




LDD 


TRADV 


* 


3A008570 


002A 





18C3 




RTE 


3 


♦ 


3A008580 


002B 





Doe3 




STO 


TRRDEl 


# 


3A008590 


002C 





D8DD 




STO 


TRAOV 


* 


3A008600 


002D 





C003 




LD 


TRIN4 


* 


3A008610 


002E 





OODl 




STO 


TRBGN 


* 


3A008620 


002F 





08F0 


TRRST 


XIO 


TRBSW 


RD SWS DELAY/OPTIONS 


3A008630 


0030 





C0F2 




LD 


TRSBW 


SAVE DELAY/OPTIONS 


3A008640 


0031 





DOEF 




STO 


TRBLD 


* 


3A008650 


0037 





3001 




WAIT 


1 


SET CHARACTERS IN SWS 


3A008660 


00 33 





1010 




SLA 


16 


INITIALIZE S/8 WD 


3A008670 


0034 





DOEE 




STO 


TRSBW 


* 


3A008680 


0035 





COEB 


TRSTR 


LD 


TRBLD 


CK WHICH PATT OPTION 


3A008690 


0036 





lOOE 




SLA 


14 


* 


3A008700 


0037 





4828 




BSC 


U 


« 


3A008710 


0038 





700F 




MDX 


TRPAT 


BINARY PATT SELECTED 


3A008720 


0039 





0BD6 




XIO 


TRBSW 


READ BIT SWS-CHARS 


3A008730 


003A 





COEB 




LD 


TRCTL 


CK WHICH CHAR 


3A008740 


003B 





4820 




BSC 


Z 


<< 


3A008750 


003C 





7006 




MDX 


TRNOT 


SEL LEFT CHAR 


3A008760 


003D 





68Ee 




STX 


TRCTL 


SET ALT CHAR SW 


3A008770 


003F 





C0E4 




LO 


TRSBW 


LOAD BIT SWS 


3A008780 


003F 





1008 


TRALT 


SLA 


B 


SET UP RIGHT CHAR 


3A008790 


0040 





D0C2 




STO 


TRSBW 


SAVE IN S/B 


3A008800 


0041 





08C8 




XIO 


TRAOV 


ADVANCE TAPE 


3A008810 


0042 





3005 




WAIT 


5 


WAIT FOR INTERRUPT 


3A008820 


0043 





1010 


TRNOT 


SLA 


16 


CL ALT CHAR SW 


3A00a830 


0044 





DOEl 




STO 


TRCTL 


* 


3A008840 


0045 





CODO 




LD 


TRSBW 


SET UP RIGHT CHAR 


3A008850 


0046 





1808 




SRA 


8 


* 


3A008860 


0047 





7nF7 




MDX 


TRALT 


* 


3A008870 


0048 





CODA 


TRPAT 


LD 


TRSBW 


SET UP BINARY PATT 


3A008880 


0049 





BOOB 




A 


TRIOO 


* 


3A008890 


004A 





70F5 




MDX 


TRALTfa 


« 


3A003900 








*************************************************** 


3A008910 


004B 





0040 




DC 


/0040 


THE LAST FIVE WORDS ARE 


3A008920 


004C 





9000 




DC 


/9000 


* USED FOR PROGRAM 


3AOa8930 


004D 





2000 




DC 


/2000 


* IDENTIFICATION. THREE 


3A008940 


004E 





2000 




DC 


/2000 


* FOR THE PID AND TWO FOR 


3A008950 


004F 





0010 




DC 


/OOIO 


* SEQUENCE. 


3A008960 



DATE 
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6.06 1442 PUNCH 



A. PRELOAD SHS 

R. LOADING 

C. WAIT 1 



* 

THIS PROGRAM WILL PUNCH THE DATA IN BIT SWITCHES 
0-11 IN ALL COLUMN UNLESS BIT 12 IS ON AND THEN 
ONLY THE FIRST COLUMN IS PUNCHED. THESF CARDS 
MAY BE USED IN THE READER SCOPE LOOP 5.07 AND 
6.11. 



0. RESTART 



E. COMMENTS 



0000 






0000 





6037 


0001 





0003 


0002 





0000 


0003 





0000 


0004 





0003 


0005 





003A 


0006 





0003 


0007 





0011 


0008 





0011 


0009 





A008 


OOOA 





OOOB 


OOOB 





8818 


OOOC 





0011 


0000 





0029 


OOOE 





OOFO 


OOOF 





3001 


0010 





701F 


0011 





0000 


0012 





08F7 


0013 





lOOl 


0014 





4850 


0015 





7000 


0016 





08ED 


0017 





COEA 


0018 





80EB 


0019 





DOES 


OOIA 





F0F3 


OOIB 





4820 


OOIC 





7003 


0010 





C0E5 



NONE, SWITCHES HAY BE SET AT ANY TIME. 
IPL MODE FROM CARDS OR PAPER TAPE. 



SET DESIRED BIT SWITCHES AS FOLLOWS, 

BIT 15- HALT 
BIT 14 
BIT 13 



STACKER SELECT 
FEED A CARD 
BIT 12- TERMINATE PUNCHING 
TO 11- PUNCHING PATTERN 



ONE PASS COMPLETED, PRESS START TO CONTINUE. 

LOST PUNCH INTERRUPT. 

LOST FEED OR INTIATE PUNCH INTERRUPT. 

PRESS IMMEDIATE STOP AND RESET. PRELOADING 
SWITCHES MAY BE SET AS DESIRED. PRESS START. 

1. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 
ON OR BYPASS THE INTERRUPT WAIT LOAD /&012 
INTO LOCATION /0021 AND /0032 AND RESTART. 

2. TO GET A FASTER LOOP THAN THE ABOVE PLACE 
/70FF IN THE NEXT LOCATION AFTER THE XIO. THE 
XIO WILL BE EXECUTED AFTER EACH BRANCH. 



**************** t:^****:t^*^i^1H:^:^^t^t:*******i^^i^^^t,^** 



ORG 
PHFED LDX 

DC 

PHCTR DC 

PHSWS DC 

PHBSW DC 

DC 

PHPCH DC 

DC 

PHPST DC 

DC 

PHOSW DC 

DC 

PHSTK DC 

DC 

PHK50 DC 

PHI WAIT 

MDX 
PHINT DC 
XIO 
SLA 
BOSC 
MDX 
XIO 
LO 
A 

STO 
FOR 
BSC 
MDX 
LD 





PHBLD 

/0003 

*-* 

*-* 

/0003 

/003A 

PHSWS 

/OOll 

PHINT 

/A008 

/0008 

/B818 

PHINT 

/0029 

/OOFO 

1 

PH2 

♦-* 

PHDSW 
1 

PH6 

PHBSW 

PHCTR 

PHBSW 

PHCTR 

PHK50 

Z 

PH4 

PHSWS 



*A* TO /600F LDX PHI 
*A* DC /1402 FD A CO 

COLUMN COUNTER 

BIT SWITCH STG 

READ IN ADRS 
*A* DC /3A00 

PCH I/O AREA 
♦A* DC /UOO 

COL INTR ADRS 
*A* DC /1401 

PCH TERMINATOR 
*A* DC /1703 

OP COMP INTR ADRS 
*A* DC /1480 

80 COLS TIMES 3 

SET BIT SWS 

INTERREPT ENTRY 
SENSE DSW 

COL INTR ON 

* NO, TRY OP COMP 

COLUMN COUNTER 
ADD THREE 

CHECK FOR LAST COLUMN 
IS IT LAST COLUMN 

GET DATA TO BE PUNCHED 



3A008980 

3A008990 

3A009000 

3A009010 

3A009020 

3A009030 

3A009040 

3A009050 

3A009060 

3A009070 

3A009080 

3A009090 

3A009100 

3A009110 

3A009120 

3A009130 

3A009140 

3A009150 

3A009160 

3A009170 

3A009180 

3A009190 

3A009200 

3A009210 

3A009220 

3A009230 

3A009240 

3A009250 

3A009250 

3A009270 

3A009280 

3A009290 

3A009300 

3A009310 

3A009320 

3A009330 

3A009340 

3A009350 

3A009360 

3A009370 

3A009380 

3A009390 

3 A 009400 

3A009410 

3A009420 

3A009430 

3A009440 

3A009450 

3A009460 

3A009470 

3A009480 

3A009490 

3A009500 

3A009510 

3A009520 

3A009530 

3A009540 

3A009550 

3A009560 

3A009570 

3A009580 

3A009590 

3A009600 

3A009610 

3A009620 

3A009630 

3A009640 

3A009650 



OOIE EflFB 




OR 


PHDSW 


* AND OR IN PCH TERM 


3A009660 


OOIF D0E3 




STO 


PHSWS 


* ANS STORE BACK 


3A009670 


0020 08E5 


PH4 


XIO 


PHPCH 


PUNCH A COLUMN 


3A009680 


0021 3003 




WAIT 


3 


WAIT FOR INTERRUPT 


3A009690 


0022 1003 


PH6 


SLA 


3 




3A009700 


0023 4850 




BOSC 


- 


OP COMP ON 


3A009710 


0024 6012 




LDX 


PHINT61 


* NO, SENSE AGAIN 


3A009720 


0025 1010 




SLA 


16 


* LEVEL 4- OP COMP 


3A009730 


0026 OODB 




STO 


PHC TR 


CLEAR COLUMN COUNTER 


3A009740 


0027 080C 




XIO 


PHBSW 


READ BIT SWITCHES 


3A009750 


0028 CODA 




LD 


PHSWS 


GET SW SETTING 


3A009760 


0029 4804 




BSC 


E 


HALT PROGRAM 


3A009770 


002A 3002 




WAIT 


2 


* YES 


3A0097e0 


002B 1801 




SRA 


1 


* NO 


3A009790 


002C 4804 




BSC 


E 


DO STACKER SELECT 


3A009800 


0020 7005 




MDX 


PH8 


* YES 


3A009810 


002E 1801 




SRA 


1 


♦ NO 


3A009820 


002F 4804 




BSC 


E 


WHAT OPERATION 


3A009830 


0030 08CF 


PH2 


XIO 


PHFED 


FEED A CARD 


3A009840 


0031 0806 




XIO 


PHPST 


START THE PUNCH 


3A009850 


0032 3005 




WAIT 


5 


* PCH FROM SWS 


3A009860 


0033 0808 


PH8 


XIO 


PHSTK 


GIVE STACKER COMMAND 


3A009870 


0034 COCE 




LD 


PHSWS 


RESTORE ACC 


3A009880 


0035 1802 




SRA 


2 




3A009890 


0036 70F8 




MDX 


PH2-1 




3A009900 




* 






BUILD XIO COMMANDS 


3A009910 


0037 C012 


PHBLD 


LO 


PHRES 


SET UP RESTART 


3A009920 


0038 D0C7 




STO 







3A009930 


0039 COCF 




LD 


PHPST+1 


* INIT PCH 


3A009940 


003A 1803 




SRA 


3 




3A009950 


003B DOCD 




STO 


PHPST+1 




3A009960 


003C F0C4 




EOR 


PHFEDtl 


* FEED A CARD 


3A009970 


0030 D0C3 




STO 


PHFED61 




3A0099aO 


003E C0C6 




LD 


PHBSW4-1 


* READ BIT SWITCHES 


3A009990 


003F 1008 




SLA 


8 




3A010000 


0040 D0C4 




STO 


PHBSW+1 




3A010010 


0041 C0C9 




LD 


PHDSW* 1 


* SENSE DSW 


3A010020 


0042 1803 




SRA 


3 




3A010030 


0043 DOC 7 




STO 


PHDSW*1 




3A010040 


0044 C0C2 




LD 


PHPCH+1 


♦ PCH A COLUMN 


3A010050 


0045 1008 




SLA 


8 




3A0 10060 


0046 DOCO 




STO 


PHPCH* I 




3A010070 


0047 C0C5 




LD 


PHSTK+1 


♦ STACK SELECT 


3A010080 


0048 1007 




SLA 


7 




3A010090 


0049 O0C3 




STO 


PHSTK61 




3A010100 


004A 600F 


PHRES 


LDX 


PHI 




3A010110 




******************lL***t^c^t:^^^^i^^^^^^i^^^^^^^^^^,^f:^:^^ 


3A010120 


004B 0040 




DC 


/0040 


THE LAST FIVE WORDS ARE 


3A010130 


004C 9000 




DC 


/9000 


* USED FOR PROGRAM 


3A010140 


004D 2000 




DC 


/2000 


* IDENTIFICATION. THREE 


3A010150 


004E 2000 




DC 


/2000. 


* FOR THE PID AND TWO FOR 


3A010160 


004F 0008 




DC 


/0008 


* SEQUENCE. 


3A010170 



DATE 
EC NO. 



15FEB68 
420403 



25JUt69 
571053 



PROG ID 
PAGE 



03A0-0 
8 



DATE 
EC NO. 



15FEB68 
420403 



25JUL69 
571053 



PROG ID 
PAGE 



03A0-0 
8A 
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6.07 144? RFADER 



A. PRELOAD SWS 



P. LOADING 
C. WAITS 



0. RESTART 



COMMENTS 



* ■ 

1. THE PROGRAM READS A COLUMN OF DATA FROM 

THE CARD AND COMPARES IT WITH THE PIT SWS. 
?. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 

DELAY BETWEEN Xin READ EXECUTIONS. 
3. AN OPTION IS AVAILABLE TO BYPASS WAIT 6 

ON COMPARE ERRORS. 



I. IF DELAY IS DESTRFO, SET DELAY CONTROL 

VALUE IN BIT SWITCHES 1 THRU 13. 

*NOTF* SWS 1 THRU 13 ALL ON, MAX DELAY. 
SWS 1 THRU 13 ALL OFF, NO DELAY. 
Z. IF BYPASS COMPARE ERROR WAIT 6 OPTION IS 

DESIRED, TURN ON BIT SWITCH lb. 

LOAD I PL FROM CARD OX PAPFR TAPE. 

SET alT SWITCHES THRU II TO EXPECTED COLUMN 
DATA AMD SFT HITS 12 THRU 15 OFF. 

LOAD PREPUNCHED CARDS INTO READER AND MAKE RDY. 
DEPRESS START. 

NO INTERRUPT ntNERATED AFTER XIO READ. 
CflMMAND WAS GIVEN. SEE COMMENTS. 

COMPARE FKPOR. ACCUMULATOR CONTAINS BITS READ. 

IF ACCUMUIATOR CONTAINS /OOFF, COLUMN READ WAS 

NOT STHKFD INTO READ/IN AREA. 

OPPRESS START TO READ NEXT CARD. 

TO BYPASS COMPARE ERROR WAIT, SEE PRELOAD. 

1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD 
SWITCH SETTINGS, DEPRESS IMMEDIATE 
STOP AND RFSET POSH BUTTONS. 

■>. SET OESTRrO PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 



* 1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

* 2. TO RUN PROGRAM WITH INTFRRUPT DELAY SW ON 

* OR TO BYPASS THE INTERRUPT WAIT, LOAD /6010 

* INTO LOCATION /0037 AND DO A PROGRAM RESTART. 

* 3. TO SFT U-? LOOP TO FXFCUTF XIO, LOAD /6010 

* INTO LIICAIION /0O37 AND LOAD /lOOO INTO 

* LOCATION /an3A AND 00 A PROGRAM RESTART. 
* 



*A* TO /602D LDX RDRST 
READ IN AREA 
BIT SW SAVE AREA 

*A* TO /3A00 RD BIT WSW 
READ IN AREA ADDR 

*A* TO /1200 XIO READ 
BIT SW SAVE AREA 

*A* TO /1703 XIO SFNSE 
INTERRUPT ADDR 

*A* TO /1404 XIO START 
LAST RDR COMPARE ERR 
LAST DSW SENSED 
INTERRUPT ADDR 
CONSTANT /OOFF 
CONSTANT 1 
INTFRRUPT ENTRY 
SENSE AND SAVE DSW 
* 

CK FOR RD RESPONSE 
NO, CK OP COMPLETE 



0000 








ORG 





0000 





601F 


RDBGN 


LDX 


RDBLO 


0001 





OOFF 


ROAR A 


DC 


/OOFF 


0002 





0006 


RDfiSW 


DC 


RDDSW 


0003 





003A 




DC 


/003A 


0004 





0001 


RDORD 


DC 


RDARA 


OOO'i 





0012 




DC 


/0012 


0006 





6020 


RDDSW 


LDX 


RDRST 


0007 





aaia 




DC 


/BRIB 


0008 





OOOF 


RDR GO 


DC 


RD I 04 


0009 





7 BOB 




DC 


/2B08 


OOOA 





onoo 


ROE'^R 


DC 


*-* 


DOOR 





0000 


wi)OSV 


DC 


*-* 


OOOC 





OOOF 




DC 


RDI04 


OOOD 





OOFF 


ROOFF 


DC 


/OOFF 


OOOF 





0001 


ROONF 


DC 


1 


OOOF 





0000 


RDI04 


DC 


«-* 


0010 





08E5 




XIO 


RDDSW 


0011 





D0F9 




STO 


RDDSV 


0012 





4350 




BOSC 


- 


0013 





7024 




MOX 


RDCOP 



3A010190 
3A010Z00 
3A01021O 
3A010220 
3A010230 
3A010240 
3A010250 
3A010260 
3A010270 
3A01028O 
3A010290 
3A010300 
3A010310 
3A010320 
3A010330 
3A010340 
3A01035O 
3A010360 
3A0 10370 
3A010380 
3A010390 
3A010400 
3A010410 
3A010420 
3A010430 
3A0 10440 
3A0 10450 
3A010460 
3A010470 
3A010480 
3A010490 
3A010500 
3A010510 
3A010520 
3A010530 
3A010540 
3A010550 
3A0 10560 
3A010570 
3A010580 
3A010590 
3A010600 
3A010610 
3A010620 
3A0 10630 
3A010640 
3A010650 
3A010660 
3A010670 
3A010680 
3A010690 
3 AO 10700 
3A010710 
3A010720 
3A010730 
3A0I0740 
3A010750 
3A01076G 
3A010770 
3A010780 
3A010790 
3A010800 
3A010810 
3A010820 
3A010830 
3A010840 
3A010850 
3A010860 



0014 





08FE 


XIO 


RDRRD 


YES, READ COLUMN 


3A01O87O 


0015 





COFO 


LD 


RDDSW 


CK IF COMPARE TO SWS 


3A010880 


0016 





1804 


SRA 


4 


* 


3A010890 


0017 





1004 


SLA 


4 


♦ 


3A010900 


0018 





FOES 


EOR 


ROAR A 


* 


3A010910 


0019 





4818 


BSC 


£- 


* 


3A010920 


OOIA 





70 IC 


MOX 


RDINT 


YES, WAIT NXT INTRPT 


3A0 10930 


OOIB 





C0E5 


LD 


RDARA 


NO, SAVE COL READ 


3A010940 


OOIC 





DOED 


STO 


RDERR 


♦ 


3A010950 


0010 





6802 


STX 


ROESW 


SET ERR SW 


3 AO 10960 


OOIE 





7018 


MDX 


ROINT 


WAIT FOR NXT INTRPT 


3A010970 


OOIF 





C0E3 


RDBLD LD 


RDBSWei 


BUILD lOCCS AND 


3A010980 


0020 





1008 


ROESW SLA 


8 


♦ RESET/START BRANCH 


3A010990 


0021 





DOEl 


STO 


ROBSWEl 


* 


3A0U000 


0022 





C0E4 


LD 


RDDSWSl 


♦ 


3A011010 


0023 





1803 


SRA 


3 


« 


3A011020 


0024 





O0E2 


STO 


RDDSWtl 


♦ 


3A01I030 


0025 





C0F3 


LO 


RDRG061 


* 


3A011040 


0026 





1801 


SRA 


I 


* 


3A011050 


0027 





DOEl 


STO 


RORGOGl 


* 


3A011060 


0028 





CODC 


LD 


RORRDSl 


* 


3A011070 


0029 





1008 


SLA 


8 


* 


3A0H080 


002A 





DODA 


STO 


RDRRDGl 


« 


3A011090 


0028 





CODA 


LD 


RDDSW 


* 


3A011100 


002C 





D0D3 


STO 


RDBGN 


* 


3A011110 


0020 





08D4 


RDRST XIO 


RDBSW 


READ SWS DELAY/OPT 


3A01U20 


002E 





COO 7 


LD 


RDDSW 


* SAVE DELAY/OPTION 


3A011130 


002F 





DOEE 


STO 


RDBLD 


* 


3A011140 


0030 





3001 


WAIT 


1 


SET READ PATTERN 


3A011150 


0031 





CODB 


LD 


RDOFF 


* 


3A0U160 


0032 





OOCE 


STO 


RDARA 


* 


3A011170 


0033 





1010 


SLA 


16 


INITIALIZE AND READ 


3A01U80 


0034 





DOEB 


STO 


RDESW 


* BIT SWS 


3A0I1190 


0035 





08CC 


XIO 


RDBSW 


* 


3A011200 


0036 





ORDl 


XIO 


RORGO 


START READER 


3A011210 


0037 





3004 


POINT WAIT 


4 


WAIT FOR INTERRUPT 


3A011220 


0038 





1004 


RDCOP SLA 


4 


CK FOR OP COMPLETE 


3A011230 


0039 





4P50 


BOSC 


- 


* 


3A011240 


003A 





70D5 


MOX 


RDI04£l 


NO, RESENSE DSW 


3A011250 


003B 





C8CE 


LOD 


ROOSV-1 


YFS, LOAD DSW IN Q 


3A011260 


003C 





C0E2 


LD 


RDBLD 


SET UP DELAY 


3A011270 


0030 





1801 


SRA 


1 


* 


3A011280 


003E 





90CF 


RDLOP S 


RDONE 


* 


3A011290 


003F 





4810 


BSC 


- 


* 


3A011300 


0040 





70FD 


MOX 


RDLOP 


* 


3A011310 


0041 





CODE 


LD 


RDESW 


CK IF FRR SW ON 


3A0U320 


0042 





4813 


BSC 


£- 


* 


3A0I1330 


0043 





70ED 


MDX 


RDRST£4 


NO, RD NXT CARD 


3A01 1340 


0044 





CODA 


LD 


RDBLD 


YES, CK IF LOOP 


3A011350 


0045 





lOOF 


SLA 


15 


* ON ERRORIBIT 15) 


3A011360 


0046 





4820 


BSC 


Z 


* 


3A011370 


0047 





70E0 


MDX 


RDINT-? 


YES, RO BIT SWS 


3A011380 


0048 





C8C1 


LDD 


RDDSV-1 


MO, DISPLAY RD ERR 


3A011390 


0049 





3006 


WAIT 


6 


* AND DSW AT WAIT 6 


3A011400 


004A 





70E6 


MOX 


RDRSTS4 


RD NEXT CARD 


3A011410 








*****<!»******»***«^*«**«*:*<,^«;»^;^:^*^,:,,»<,<,*:^<,^,«:i,:^ + :^ ;).«:(; 


3A011420 


004B 





0040 


DC 


/0040 


THE LAST FIVE WORDS ARE 


3A011430 


0Q4C 





9000 


DC 


/9000 


* USED FOR PROGRAM 


3A0 11440 


004D 





2000 


DC 


/ZOOO 


* IDENTIFICATION. THREE 


3A011450 


004E 





2000 


DC 


/2000 


* FOR THE PIO AND TWO FOR 


3A011460 


04F 





0004 


DC 


/0004 


* SEQUENCE. 


3A011470 



DATE 
EC NO. 



15FFB6B 
420403 



25JUL69 
571053 



PROG ID 
PAGE 



03A0-0 
9 
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FC NO. 
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6.08 ?310 DISK SEEK 



PRELOAD SWS 



fi. LOADING 

C. WAITS 1 



0. RESTART 



E. COMMENTS 



0000 






0000 





601B 


0001 





0000 


0002 





OOOF 


0003 





003A 


0004 





OOCA 


0005 





0000 


0006 





0000 


0007 





0000 


0008 





0000 


0009 





0000 


OOOA 





0011 


OOOB 





0000 


OOOC 





0004 


GOOD 





OOFF 


OOOE 





6020 


OOOF 





7010 


0010 





0808 


0011 





0000 


0012 





08F5 


0013 





D0F7 



* 

1. THE PROGRAM ALLOWS THE HEAD TO ACCESS BACK 
AND FORTH BETWEEN ? CYLINDERS WHICH ARE 
CONTROLLED BY THE OPERATOR. 

2. AN OPTION IS AVAILABLE TO ALLOW A WAIT AFTER 
FACH SEEK OPERATION.- 

3- THE PROGRAM CAN BE USED TO POSITION THE HEAD 
BEFORE LOADING THF 2310 WRT/RD/COMPARF 
PROGRAM. 6.09 



1. 



SET DESIRED DISK DRIVE AREA 
SWITCHES THRU 7. 

DRIVE 

DRIVE 

DRIVF 

DRIVE 

DRIVE 



CODE IN BIT 



IF WAIT 
SET BIT 



20XX 

88XX 

90XX 

93XX 

AOXX 

AFTER FACH SEEK OPERATION IS DESIRED, 
SWITCH 15 ON. 



1 

2 

3 

4 



LOAD IPL FROM CARD OR PAPER TAPE. 

SET DESIRED HEX CYLINDER ADDRESS IN BIT 

SWITCHES THRU 7. SEE PAGE 2A. 

SET DESIRED HEX NUMBER OF CYLINDERS TO SEEK IN 

BIT SWITCHES 8 THRU 15. 

DEPRESS START. 



NO INTERRUPT GENERATED 
HOME WAS EXECUTED. SEE 

NO INTERRUPT GENERATED 
EXECUTED. SEE COMMENTS 



AFTER INITIAL 
COMMENTS 



XIO SEEK 



AFTER XIO SEEK WAS 



1. TO RESTART PROGRAM OR RESET SWITCH SETTINGS, 
DEPRESS IMMEDIATE STOP AND RESET PUSH BUTTONS 

2. SFT DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
AND TO BYPASS THE INTERRUPT WAIT, LOAD /6012 
INTO LOCATIONS /0039 AND /0041. 

DO A PROGRAM RESTART. 



*♦♦♦*****♦♦**♦♦***♦*♦***********•♦*****♦*********** 

ORG 

DKBGN LOX DKBLD *A* TO /6020 LDX UKRST 

DKENT DC ♦-* INTERRUPT ENTRY SW 

DKBSW DC DKBIT BIT SW SAVE 

DC /003A *A* TO /3A00 RD BIT SWS 

DKHME DC 202 MAX NUMBER OF SEEKS 

DC *-* lOCC-SEEK HOME 

DKSEK DC *-♦ NUMBER OF SEEKS 

DC ♦-♦ lOCC-SEEK 

OKDSW DC *-* AREA CODE/SW OPTIONS 

DC *-* lOCC-SENSE RESET DSW 

DC 0KIN2 INTERRUPT ADDRESS 

OKDSV DC *-* LAST DSW 

DK004 DC /0004 CONSTANT 4 

DKOFF DC /OOFF CONSTANT FF 

DKBIT LDX OKRST RESET VECTER 

OKBDl DC /7010 DSW BUILO WORD 

DKBD2 OC /OeOB SEEK BUILD WORD 

DKIN2 OC *-* OP COMPLETE INTRPT 

XIO DKDSW SENSE RESET OSM 

STO OKDSV SAVE DSW 



3A011490 
3A011500 
3A011510 
3A011520 
3A011530 
3A011540 
3A011550 
3A011560 
3A011570 
3A011580 
3A011590 
3A011600 
3A011610 
3A011620 
3A011630 
3A011640 
3A011650 
3A011660 
3A011670 
3A011680 
3A011690 
3A011700 
3A011710 
3A011720 
3A011730 
3A011740 
3A011750 
3A011760 
3A011770 
3A011780 
3A011790 
3A011800 
3A011810 
3A011820 
3A011830 
3A0 11840 
.3A011850 
3A011860 
3A0H870 
3A011880 
3A011890 
3A0I1900 
3A011910 
3A011920 
3A0 11930 
3A011940 
3A011950 
3A011960 
3A011970 
3A0 11980 
3A011990 
3A012000 
3A012010 
3A012020 
3A012030 
3A012040 
3A012050 
3A012060 
3A012070 
3A012080 
3A0 12090 
3A012100 
3A012110 
3A012120 
3A0I2130 
3A012140 
3A012150 
3A012160 



0014 


1002 


SLA 


2 


CK RDY, NOT BUSY 


3A012170 


0015 


4868 


80SC 


EZ 


♦ 


3A012180 


0016 


6012 


LDX 


DKIN2&1 


NO, LOOP 


3A012190 


0017 


C0F9 


LO 


DKENT 


LO INTERRUPT ENTRY SW 


3A012200 


0013 


4S20 


BSC 


Z 


CHECK IF ON 


3A012210 


0019 


7020 


MOX 


DKMOV 


NO, SEEK HOMF ENTRY 


3A012220 


OOIA 


7027 


MDX 


DKCON 


YES, SEEK ENTRY 


3A012230 


OOIB 


C0F2 


DKBLD LO 


DKBIT 


BUILO RD BIT SW lOCC 


3A012240 


00 IC 


00E3 


STO 


DKBGN 


* AND SET PROG RESET 


3A012250 


OOID 


C0E5 


LO 


OKBSWEl 


♦ AND START VECTER 


3 AO I 22 60 


OOIF 


1008 


SLA 


8 


♦ 


3A012270 


OOIF 


00F3 


STO 


DKBSWei 


* 


3A012280 


0020 


08F1 


OKRST XIO 


DKBSW 


RD AREA CODE AND 


3A012290 


0021 


COEC 


LD 


DKBIT 


* PROG OPTIONS 


3A0 12300 


0022 


D0E5 


STO 


DKDSW 


SAVE SWS 


3A012310 


0023 


180B 


SRA 


11 


SET UP AREA CODE 


3A012320 


0024 


lOOB 


SLA 


11 


« 


3A012330 


0025 


D0E8 


STO 


DKBIT 


SAVE AREA CODE 


3A0 12340 


0026 


C0E8 


LD 


DKBDl 


BUILD DSW AND SFEK 


3A012350 


0027 


1804 


SRA 


4 


* lOCCS 


3A0 12360 


002S 


E8E5 


OR 


DKBIT 


* 


3A012370 


0029 


DOOF 


STO 


0K0SW61 


* 


3A012380 


002A 


C0E5 


LO 


DKBD2 


* 


3A012390 


002B 


1801 


SRA 


1 


* 


3A012400 


002C 


E8E1 


OR 


DKBIT 


* 


3A012410 


002D 


D0D7 


STO 


OKHMEEl 


* 


3A012420 


002E 


D008 


STO 


DKSEKtl 


* 


3A012430 


002F 


3001 


WAIT 


1 


SET STARTING CYL. 


3A012440 


0030 


08D1 


XIO 


DKBSW 


* AND NUM OF CYLS. 


3A012450 


0031 


CODC 


LO 


DKBIT 


* TO SEEK IN BIT SWS 


3A012460 


0032 


1808 


SRA 


8 


SFT UP START CYL. 


3A012470 


0033 


D002 


STO 


DKSEK 


* 


3A0 12480 


0034 


08D3 


XIO 


OKDSW 


SENSF DSW 


3A012490 


0035 


D005 


STO 


DKOSV 


SAVE DSW 


3A012500 


0036 


C8D3 


LOO 


DKOSV-1 


LOAD DSW IN Q REG 


3A012510 


0037 


68C9 


STX 


DKENT 


TURN ON INTRPT ENTRY SW 


3A012520 


0038 


08CB 


XIO 


DKHME 


SEEK HOME 


3A012530 


0039 


3005 


WAIT 


5 


WAIT FOR INTERRUPT 


3A012540 


003A 


COCC 


DKMOV LD 


0KSEK61 


SET UP SEEK 


3A012550 


003B 


FOOO 


EOR 


OK 004 


* DIRECTION 


3A012560 


003C 


DOCA 


STO 


DKSEK61 


* 


3A012570 


003D 


C8CC 


LDD 


DKDSV-1 


LOAD DSW IN Q REG 


3A012580 


003E 


1010 


SLA 


16 


TURN OFF INTERRUPT 


3A012590 


003F 


DOC I 


STO 


DKENT 


* ENTRY SW 


3A012600 


0040 


08C5 


XIO 


DKSEK 


SEEK 


3A012610 


0041 


3006 


WAIT 


6 


WAIT FOR INTERRUPT 


3A0 12620 


0042 


COCB 


DKCON LD 


DKBIT 


SET UP NUM OF SEEKS 


3A012630 


0043 


E0C9 


AND 


DKOFF 


* 


3A0 12640 


0044 


DOCl 


STO 


DKSEK 


* 


3A012650 


0045 


C0C2 


LD 


DKDSW 


CK FOR SEEK AND WAIT 


3A0 12650 


0046 


4804 


BSC 


E 


* 


3A012670 


0047 


3002 


WAIT 


2 


YES, WAIT 


3A012580 


0048 


70F 1 


MOX 


DKMOV 


NO, GO SEEK 


3A012690 






***♦*♦***♦****♦♦*♦♦♦*♦♦♦»»**•*♦♦♦**♦*************** 3 AO 12700 


0049 


0000 


DC 





SPACE FILLER 


3A012710 


004A 


0000 


DC 





* 


3A012720 


004B 


0040 


DC 


/0040 


THE LAST FIVE WORDS ARE 


3A012730 


004C 


9000 


DC 


/9000 


* USED FOR PROGRAM 


3A012740 


0040 


2000 


DC 


/2000 


♦ IDENTIFICATION. THREE 


3A012750 


004E 


2000 


OC 


/2000 


* FOR THE PID AND TWO FOR 


3A012760 


004F 


0002 


DC 


/0002 


♦ SEQUENCE. 


3A012770 
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6.09 7310 WRITE- 
PFAD-COMPARE 



A. PRELOAD SWS 



B. LOADING 

C. WAITS 1 

2 

3 
6 

n. PFSTART 

F. COMMENTS 



0000 






0000 





6020 


0001 





0000 


0002 





003A 


0003 





0000 


OOOA 





6000 


ooo"; 





7010 


0006 





2820 


0007 





00C3 


OOOH 





0001 


0000 





0000 


OOOA 





OOOB 


OOOFJ 





0000 


ooor. 





083F 


0000 





1001 


OOOF 





1001 



* 

THIS PROGRAM WRITES ON SECTOR 0, A DATA PATTERN 
WHICH WAS SET IN THF BIT SWS. THE DATA IS THEN 
READ AND COMPARED TO THE BIT SWITCHES. THE HEAD 
MAY RE POSITIONED WITH SCOPE LOOP 6,08. THIS 
WILL DESTROY THE SECTOR ADDRESS. IT MAY BE RE- 
STORED BY PLACING THF SECTOR NUMBER IN THE BIT 
SWITCHES AND EXECUTING THE PROGRAM ONCE. 
THE PROGRAM WILL HALT AT WAIT 2 AFTER EACH PASS. 



* 
* 
* 
* 

* 

* 
* 

* 

* 

* 
« 

* 

* 
* 
* 
* 
* 

* 
* 
♦ 

* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 



SET THE AREA CODE IN 0-7 FOR THE DISC TO BE USED 



DRIVE 





20XX 


DRIVE 


1 


88XX 


DRIVE 


2 


90XX 


DRIVE 


3 


9SXX 


DRIVF 


4 


AOXX 



LOAD IPL FROM CARD OR PAPER TAPE. 

SET DATA IS RE WRITTEN IN SWITCHES 0-15. 

TO LOOP PROGRAM, LOAD /lOOO 



HALT AFTER ONE PASS. 
INTO LOCATION /OOIF. 

LOST WRITE INTERRUPT. 

LOST READ INTERRUPT. 



SEE COMMENTS. 



SEE COMMENTS. 



COMPARE ERROR BETWEEN THE DATA READ AND THE BIT 
SWITCHES. THE BITS IN ERROR WILL BE ON IN THE 
ACCUMULATOR. TO LOOP ON ERROR, LOAD /lOOO INTO 
LOCATION /0017. 

1. TO RESTART PROGRAM OR RESET SWITCH SETTINGS, 
DEPRESS IMMEDIATE STOP AND RESET PUSH BUTTONS 

2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 
ON OR BYPASS THE INTERRUPT WAIT LOAD /600C 
INTO LOCATION /0047 AND /004A AND RESTART. 

?, TO GET A FASTER LOOP THAN THE ABOVE PLACE 

/70FE IN THE NEXT LOCATION AFTER THF XIO. THE 
XIO WILL BE EXECUTED AFTER EACH BRANCH. 

3. IF INTERRUPT IS LOST, B REG WILL CONTAIN 
DATA WORD AND ARITH REG WILL CONTAIN WAIT 
NUMBER /0003 OR /0004. 



*************************************************** 

ORG 

DCBGN LDX DCBLD 

DCSWS DC *-* 

DC0N5 DC /003A 

DCXR3 DC *-* 

DCONl DC /6000 

DC /7010 

DC0N2 DC /2 820 

DC /00C3 

DCRSW DC DCSWS 

DC /OOOO 

DC DC I NT 

DC INT DC *-* 

XIO DCDSW 

DC0N3 SLA 1 

SLA 1 



GO TO PROG 
SW READ IN AREA 
CONSTANT 
INDEX REG 3 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
SW READ IN ADRS 
*A* DC /3A00 READ BIT SWS 
INTERRUPT ADRS 
INTERRUPT ENTRY 
SENSE OSW 
ALSO A CONSTANT 
* 



3A012790 

3A012800 

3A012810 

3A012820 

3A012830 

3A012840 

3A012850 

3A012860 

3A012870 

3A012880 

3A012890 

3A012900 

3A012910 

3A012920 

3A012930 

3A012940 

3A012950 

3A012960 

3A012970 

3A012980 

3A012990 

3A 01 3000 

3A013010 

3A013020 

3A013030 

3A013040 

3A013050 

3A0I3060 

3A013070 

3A013080 

3A013090 

3A013100 

3A013110 

3A013120 

3A013130 

3A013140 

3A013150 

3A013160 

3A013170 

3A013180 

3A013190 

3A013200 

3A013210 

3A013220 

3A013230 

3A013240 

3A0 13250 

3A013260 

3A013270 

3A0 13280 

3A013290 

3A013300 

3A013310 

3A013320 

3A013330 

3A013340 

3A013350 

3A013360 

3A013370 

3A013380 

3A013390 

3A013400 

3A013410 

3A013420 

3A013*30 

3A0 13440 

3A013450 

3A013460 



OOOF 


4868 


0010 


600C 


0011 


C03A 


0012 


4818 


0013 


7034 


0014 


0000 


0015 


FOEB 


0016 


4820 


0017 


3 006 


0018 


COEA 


0019 


80EE 


OOIA 


DOES 


OOIB 


F02F 


OOIC 


4820 


OOID 


70F6 


OOIE 


3002 


OOIF 


701C 


0020 


COEl 


0021 


1008 


0022 


D0E6 


0023 


08E4 


0024 


C8DC 


0025 


18CC 


0026 


88DD 


0027 


18C4 


0028 


0823 


0029 


1800 


002A 


C009 


002B 


1808 


002C 


D821 


002D 


18CB 


00?E 


F0D5 


002F 


1805 


0030 


D81F 


0031 


caD4 


0032 


1805 


0033 


D02C 


0034 


801B 


0035 


OOCO 


0036 


D014 


0037 


18Ca 


0038 


DODB 


0039 


F0D3 


003A 


0003 


003B 


3001 


00 3C 


08CB 


0030 


C0C3 


003E 


0000 


003F 


C0C3 


0040 


90C7 


0041 


DOCl 


0042 


FOOD 


0043 


4820 


0044 


70F8 


0045 


0006 


0046 


0809 


0047 


3003 


0048 


6803 


0049 


0804 


004A 


3004 


004B 


0040 


04C 


9000 


004D 


2000 


004E 


2000 


004F 


0001 


0050 






0C5 



* 
DCBLD 



DCl 
DC 3 



0C6 

**♦♦* 
DC END 
DCDSW 

DCRD 

DCWR 



BOSC 

LDX 

LD 

BSC 

MDX 

DC 

EOR 

BSC 

WAIT 

LD 

A 

STO 

FOR 

BSC 

MDX 

WAIT 

MDX 

10 
SLA 
STO 
XIO 
LDD 
RTE 
AD 
RTE 
STD 
RTF 
LD 
SRA 
STD 
RTE 
EOR 
RTE 
STD 
LDD 
SRA 
STO 
A 

STO 
STO 
RTE 
STO 
EOR 
STO 
WAIT 
XIO 
LD 
DC 
LD 
S 

STO 
FOR 
BSC 
MDX 
STO 
XIO 
WAIT 
STX 
XIO 
WAIT 
******* 
DC 
DC 
DC 
DC 
DC 
EQU 



£Z 

DCINTtl 
DCDSW 
fl- 
oe 6 
/OOOO 
DCSWS 
Z 
6 

DCXR3 
DCBSW 
DCXR3 
DC END 
Z 

DC 5 
2 

DCl 

INITIALI 
DC0N5 
8 

DCBSWei 
DCBSW 
DCSWS 
12 

DCONl 
4 

DCDSW 
16 

DCONl 
8 

DCRD 
11 

DCONl 
21 

DCWR 
DC0N2 
5 

/0060 
DCWR 
DCXR3 
DCEND 
8 

DC 5 
DC0N13 
DC 3 
1 

DCBSW 
DCSWS 
/OOOO 
DCXR3 
DCBSW 
0CXR3 
DCWR 
Z 

DC3-1 
DCDSW 
DCWR 
3 

DCDSW 
DCRD 

4 

********* 

/0040 
/9000 
/2000 
/2OO0 
/OOOl 
DCRD&2 



IS DISK READY 

* NO 

* YES 

WAS LAST OP A READ 

* NO 

*A* LD 3 1 
COMPARE SWS 
ANY ERRORS 

* YES 

ADJ I/O ADRS 

* 

* 

* 

REACHED LIMIT 

* NO 

ONE PASS COMPLETE 
START OVER 
ZATION 

GET CONSTANT 

READ BIT SW lOCC 

READ SWS 

GET AREA CODE 

A- /OOOX Q- /OOOX 

A- /600X 0- /701X 

A- /X600 0- /X701 

SET OSW lOCC 

A- /X701 0- /X600 



A- /6000 

A- /0060 

SET READ lOCC 

A- /COOO 

A- /AOOO 

A- /0060 



0- /X600 
Q- /X600 



Q- /OCOX 
g- /OCOX 
Q- /X500 



SET WRITE lOCC 

A- /2820 0- /00C3 

A- /0141 Q- /00C3 

SET WORD COUNT 

A- /OlAl 0- /00C3 

SET INDEX REG 3 

SET LIMIT CNTl 



A- /C301 
SET LD 
A- /D300 
SET STO 







/AlOO 
3 1 
Q- /AlOO 
3 



SET DATA PATTERN 
READ BIT SWS 
GET BIT SWS 
*A* STO 3 

ADJ I/O ADRS 
* 



REACHED LIMIT 

* NO 

* YES, CLEAR SW 
WRITE A RECORD 
WAIT FOR WRITE INTR 
SET SWITCH 
READ A RECORD 
WAIT FOT READ INTR 

****************************** 

THE NEXT FIVE WORDS ARE 

* USED FOR PROGRAM 

* IDENTIFICATION. THREE 

* FDR THF PID AND TWO FOR 

* SEQUENCE. 



3A0 13470 

3A013480 

3A013490 

3A013500 

3A013510 

3A013520 

3A013530 

3A013540 

3A013550 

3A013560 

3A013570 

3A013580 

3A013590 

3A013600 

3A013610 

3A013620 

3A013630 

3A0 13640 

3A013650 

3A013660 

3A013670 

3A013680 

3A013690 

3A013700 

3A013710 

3A013720 

3A013730 

3A013740 

3A013750 

3A013760 

3A013770 

3A013780 

3A013790 

3A013800 

3A013810 

3A013S20 

3A013S30 

3A013840 

3A013850 

3A013860 

3A013870 

3A013880 

3A013890 

3A013900 

3A013910 

3A013920 

3A013930 

3A0 13940 

3A013950 

3A013960 

3A013970 

3A013980 

3A013990 

3A014000 

3A014010 

3A014020 

3A0 14030 

3A014040 

3A014050 

3A014060 

3A014070 

3A014080 

3A014090 

3A014100 

3A0141I0 

3A014120 

3A014130 

3A014140 
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6.10 1627 PLOTTER 



1. 



A. PRELOAD SWS 



8, LOADING 

C. WAITS 1 



n. RESTART 



E. COMMENTS 



0000 






0000 





6012 


0001 





OQOl 


0002 





0006 


0003 





003A 


0004 





0006 


0005 





0029 


0006 


n 


0000 


0007 





002F 


OOOS 





60 IF 


0009 





0000 


OOOA 





0000 


OOOB 





OOOC 


OOOC 





0000 


OOOD 





08F8 


OOOE 





DOFA 


OOOF 





4850 


0010 





70FC 


0011 





7023 



* 

THE PROGRAM EXECUTES ALTERNATE FUNCTIONS 

WHICH HAVE BEEN SELECTED IN THE BIT SWS 

AN OPTION IS AVAILABLE TO SET UP A VARIABLE 

DELAY BETWEEN XIO WRITE EXECUTIONS. 

AN OPTION IS AVAILABLE TO HALT THE PROGRAM 

AFTER THE COMPLETION OF THE EXECUTION OF 

AN ALTERNATE XIO SEQUENCE. 



1. 



2. 



IF DELAY IS DESIRED, SET DELAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 



♦NOTE* SWS 1 THRU 13 

SWS 1 THRU 13 

IF A WAIT AFTER EACH 

DESIRED, TURN ON BIT 



ALL ON, MAX DELAY. 
ALL OFF, NO DELAY. 
PROGRAM PASS IS 
SWITCH 15. 



LOAD IPL FROM CARD OR PAPER TAPE. 



SET DESIREO FUNCTION CODES IN BIT 
THRU 15. SEE PAGE ?A FOR BIT SW 

1ST FUNCTION CODE IN SWS 

2N0 FUNCTION CODE 
TURN ON PLOTTER AND MAKE 
DEPRESS START. 



IN SWS 
READY. 



SWITCHES 
CODES. 
THRU 5. 
THRU 13. 



* 

* 
* 
* 

* 
* 

* 

* 
* 
* 

* 

* 

* 
♦ 
* 
* 

* 

* 

* 

* 

ORG 

PLBGN LDX PLBLD *A* TO /601E LDX PLROS 

PLONE DC I CONSTANT ONE 

PLBSW DC PLOSW BIT SW SAVE AREA 

DC /003A *A* TO /3A00 RD BIT SMS 

PLOT DC PLDSW CHARACTER ADDRESS 

DC /0029 *A* TO /2900 XIO WRITE 

PLDSW DC *-* BIT SW REAOIN AREA 

DC /002F *A* TO /2F01 XIO SENSE 

PLRST LDX PLRDS RESET START MOO 

PLDSV DC *-* DSW SAVE AREA 

PLSET DC *-* SW OPTION/DELAY SAVE 

DC PLIN3 INTERRUPT ADDRESS 

PLIN3 DC ♦-• INTERRUPT LEVEL 3 

XIO PLDSW SENSE RESET DSW 

STO PLOSV SAVF DSW 

BOSC - RESET INT LEVEL 

MOX PLIN3E1 RESENSE DSW 

MDX PLRET BRANCH TO DELAY 



NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN 
SELECTED. DEPRESS START TO MAKE ANOTHER PASS. 

NO INTERRUPT GENERATED AFTER XIO WRITE 
COMMAND WAS GIVEN. SEE COMMENTS- 



TO RESTART PROGRAM OR RESET INITIAL PRELOAD 

SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESET PUSH BUTTONS. 

SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

DEPRESS START. 



2. 
3. 

1. 

2. 



LAST DSW SENSED IS DISPLAYED IN THE Q REG. 
IF NO FUNCTION ENTERED IN BIT SWS, PROGRAM 
STOPS AT WAIT 1. 

TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
OR TO BYPASS THE INTERRUPT WAIT, LOAD /600D 
INTO LOCATION /0034 AND 00 A PROGRAM RESTART, 
TO SET UP LOOP TO EXECUTE XIO, LOAD /600D 
INTO LOCATION /0034 AND LOAD /6035 INTO 
LOCATION /OOIO AND DO A PROGRAM RESTART. 



3A014160 
3A014170 
3A014180 
3A014190 
3A0 14200 
3A014210 
3A0 14220 
3A014230 
3A014240 
3 AO 142 50 
3 AO 14260 
3A014270 
3A014280 
3 AO 14290 
3A014300 
3A014310 
3A014320 
3A0 14330 
3A0 14340 
3A0 14350 
3A014360 
3A014370 
3A014380 
3 AO 14390 
3A0 14400 
3A014410 
3A0 14420 
3 AO 14430 
3A0 14440 
3A0 14450 
3A0 14460 
3A0 14470 
3 AO 14480 
3A0 14490 
3A0 14500 
3A014510 
3A0 14520 
3A014530 
3A014540 
3A0 14550 
3A0 14560 
3 AO 14570 
3A014580 
3A0 14590 
3A0 14600 
3A014610 
3A0 14620 
3A0 14630 
3A0 14640 
3A014650 
3A014660 
3A014670 
3A014680 
3A0 14690 
3A014700 
3A014710 
3A0 14720 
3A0 14730 
3A0 14740 
3A0 14750 
3A014760 
3A0 14770 
3A014780 
3A 01 4790 
3A014800 
3A014810 
3A0 14820 
3A014830 



0012 





C0F2 


PLBLD 


LD 


PLOTSl 


BUILD WRITE lOCC 


3A0 14840 


0013 





1008 


PLCTL 


SLA 


8 


* 2ND CHAR SW 


3A014850 


0014 





DOFO 




STO 


PL0T61 


* 


3A014860 


0015 





COFl 




to 


PLOSMCl 


BUILD SENSE RESET 


3A014870 


0016 





1008 




SLA 


8 


* 


3A014880 


0017 





E8E9 




OR 


PLONE 


* 


3A014890 


0018 





DOEE 




STO 


PLOSWCl 


* 


3A0 14900 


0019 





C0E9 




LD 


PLBSWCl 


BUILD READ BIT SM 


SAO 149 10 


OOIA 





1008 




SLA 


8 


* lOCC 


3A014920 


OOIB 





00E7 




STO 


PLBSUCl 


* 


3A014930 


OOlC 





COEB 




to 


PLRST 


SET UP RESET AND 


3A014940 


0010 





00E2 




STO 


PLBGN 


* START BRANCH 


3A0 14950 


OOIE 





08E3 


PLROS 


XIO 


PLBSU 


READ BIT SWS FOR 


3A014960 


OOIF 





C0E6 




LO 


PLOSK 


♦ PROG OPTS/DELAY 


3A0 14970 


0020 





D0E9 




STO 


PLSET 


* 


3A014980 


0021 





3001 




WAIT 


1 


SET CHARS IN SWS 


3A014990 


0022 





080F 


PLSTR 


XIO 


PLBSW 


READ BIT SWS 


3A0 15000 


0023 





C0E2 




LO 


PLDSW 


CK FOR NO COMMAND 


3A015010 


0024 





180A 




SRA 


10 


♦ ENTERED 


3A0 15020 


0025 





4808 




BSC 


e 


* 


3A0 15030 


0026 





70FA 




MOX 


PLSTR- I 


* NO, SENSE SWS 


3A015040 


0027 


o 


CODE 




LO 


PLOSU 


* 


3A015050 


0028 





1008 




SLA 


8 


* 


3A0 15060 


0029 





180A 




SRA 


10 


* 


3A0 15070 


002A 





4808 




BSC 


t 


* 


3A0 15080 


002B 





70F5 




MDX 


PLSTR-1 


* NO, SENSE SWS 


3 AO 15090 


002C 





C80B 


PLSEN 


LOO 


PLDSV-1 


LOAD LAST DSW IN Q . 


3A015100 


0020 





08D8 




XIO 


PLOSW 


CHK DEVICE NOT BUSY 


3A015110 


002E 





DOOA 




STO 


PLDSV 


SAVE DSW 


3A015120 


002F 





1004 




SLA 


4 


* 


3A015130 


0030 





4828 




BSC 


CZ 


* 


3A015140 


0031 





70FA 




MOX 


PLSEN 


* 


3A015150 


0032 





C8D5 




LOO 


PLDSV-1 


LOAD LAST DSW IN . 


3A015160 


0033 





0800 




XIO 


PLOT 


WRITE CHARACTER 


3A015170 


0034 





3003 




WAIT 


3 


WAIT FOR INTERUPT 


3A015180 


0035 





C802 


PLRET 


LOD 


PLDSV-l 


LOAD LAST DSW IN . 


3A015190 


0036 





C003 




LO 


PLSET 


SET UP DELAY AND 


3A0 15200 


0037 





1801 




SRA 


1 


♦ EXECUTE DELAY 


3A015210 


0038 





90C8 


PLLOP 


S 


PLONE 


* 


3A015220 


0039 





4810 




BSC 


- 


* 


3A015230 


003A 





70F0 




MOX 


PLLOP 


* 


3A015240 


003B 





COCA 




LO 


PLDSW 


LD, SET UP 2ND CHAR 


3A015250 


003C 





4804 




BSC 


E 


CHK IF WAIT REOUSTEO 


3A015260 


003D 





3002 




WAIT 


2 


YES 


3A015270 


00 3F 





1802 




SRA 


2 


NO, CHK 2N0 CHAR OK 


3A015280 


003F 





4818 




BSC 


C- 


♦ 


3A015290 


0040 





70E0 




MDX 


PLSTR-1 


NO, GO TO WAIT I 


3A015300 


0041 





lOOA 




SLA 


10 


YES, SET UP 2ND CHAR 


3A015310 


0042 





DOC 3 




STO 


PLOSW 


♦ 


3A0 15320 


0043 





COCF 




LD 


PLCTL 


CHK IF 2N0 CHAR SH 


3A0 15330 


0044 





4820 




BSC 


Z 


* OFF 


3A015340 


0045 





7002 




MOX 


PLALT 


NO, BRANCH 


3A015350 


0046 





68CC 




STX 


PLCTL 


YES, SET 2ND CHAR SW 


3A015360 


0047 





70DA 




MOX 


PLSTR 


GO LOOP PROGRAM 


3A015370 


0048 





1010 


PLALT 


SLA 


16 


CLR 2ND CHAR SW 


3A015380 


0049 





DOC 9 




STO 


PLCTL 


* 


3A0 15390 


004A 





70E1 




MOX 


PLSEN 


GO CHK IF PRINT BUSY 


3 AO 15400 








^•*)t,**i^i^^,*^t*0**************************0*********** 


SAO 15410 


004B 





0040 




DC 


/0040 


THE LAST FIVE WORDS ARE 


3A015420 


004C 





9000 




DC 


/9000 


♦ USED FOR PROGRAM 


3A015430 


0040 





2000 




DC 


/2000 


♦ IDENTIFICATION. THREE 


3A0 15440 


004E 





1000 




DC 


/lOOO 


* FOR THE PIO AND TWO FOR 


3A015450 


004F 





2000 




OC 


/2000 


* SEQUENCE. 


SAO I 5460 
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6.11 ?501 READER 



A. PRELOAD SWS 



B. LOADING 

C. WAITS 1 



D. RESTART 



E. COMMENTS 



0000 






0000 





6035 


0001 





0001 


0002 





0004 


0003 





003A 


0004 





6030 


0005 





0027 


0006 





0036 


0007 





002 7 


000« 





OOFF 


0009 





0000 


OOOA 





0000 


OOOB 





C022 


OOOC 





OOOE 


OOOD 





0005 


OOOF 





0000 


OOOF 





08F4 


0010 





n0F8 


0011 





1004 


0012 





4850 


0013 





70FB 



* 
tf 
* 

* 
* 
* 
* 

* 

* 
* 

* 
* 
* 
* 
* 
* 

* 

* 

* 
* 

* 

* 
* 
* 
* 

* 
* 
* 
* 

* 
* 



* 

1. THE PROGRAM READS 80 COLUMNS OF DATA AND 
COMPARES EACH WORD WITH THE BIT SWITCHES. 

2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 
DELAY BETWEEN XIO READ EXECUTIONS. 

3. AN OPTION IS AVAILABLE TO BYPASS WAIT 6 
ON COMPARE ERRORS. 



1. IF DfLAY IS DESIRED, SFT DELAY CONTROL 
VALUE IN BIT SWITCHES I THRU 13. 
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 

SWS 1 THRU 13 ALL OFF, NO DELAY. 

2. IF BYPASS COMPARE ERROR WAIT 6 OPTION IS 
DESIRED, TURN ON BIT SWITCH 15. 

LOAD IPL FROM CARD OR PAPER TAPE. 

SET BIT SWS THRU 11 TO EXPECTED COLUMN 

DATA AND SET BITS 12 THRU 15 OFF. 

LOAD PREPUNCHED CARDS INTO READER AND MAKE READY 

DEPRESS START. 

NO INTERRUPT GENERATED AFTER XIO READ. 
COMMAND WAS GIVEN. SEE COMMENTS. 

COMPARE ERROR. ACCUMULATOR CONTAINS BITS READ. 

IF ACCUMULATOR CONTAINS /DOCB, COLUMN READ WAS 

NOT STORED INTO READ/IN AREA. 

DEPRESS START TO COMPARE NEXT COLUMN. 

TO BYPASS COMPARE ERROR WAIT, SEE PRELOAD. 

1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD 
SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESET PUSH BUTTONS. 

2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
OR TO BYPASS THE INTERRUPT WAIT, LOAD /600F 
INTO LOCATION /002F AND DO A PROGRAM RESTART. 

3. TO SET UP LOOP TO EXECUTE XIO, LOAD /600F 
INTO LOCATION /002F AND LOAD /6027 INTO 
LOCATION /0013 AND DO A PROGRAM RESTART. 



*******************tc^*4,********t****i^**i^1c^**^:^t**** 



ORG 
CRBGN LDX 
CRONE DC 
CRBSW DC 
DC 
CROSW LDX 

DC 
CRRDR DC 
DC 
CRERR DC 
CRDSV DC 
CREND DC 
CRSRA DC 
DC 
CR080 DC 
CRIN4 DC 
XIO 
STO 
SLA 
BOSC 
MDX 





CRBLD 

1 

CRDSW 

/003A 

CRRST 

/0 027 

CRARA 

/0027 

/OOFF 

♦-* 

*-* 

/C022 

CRIN4 

/0005 

*-* 

CRDSW 
CRDSV 
4 

CRIN4E1 



*A* TO /6030 LDX CRRST 

CONSTANT I 

BIT SW SAVE ADDR 

*A* TO /3A00 RD BIT SWS 

BIT SW SAVE AREA 
*A* TO /4F01 XIO SENSE DSW 

CARD READ IN ADDR 
*A* TO /4E00 XIO START RDR 

SAVE READ ERROR 

LAST DSW SENSED 
*A* TO /DllA END OF RD AREA 

LO READ AREA 

INTERRUPT ADDR 
*A* TO /0050 CONSTANT 80 

INTERRUPT ENTRY 

SENSE DSW 

SAVE DSW 

CK FOR OP COMPLETE 

NO, RESENSE DSW 



3A015480 

3A015490 

3A0 15500 

3A015510 

3A015520 

3A015530 

3A015540 

3A015550 

3A015560 

3A015570 

3A015580 

3A015590 

3A015600 

3A015610 

3A015620 

3A015630 

3A015640 

3A015650 

3A015660 

3A015670 

3A015680 

3A015690 

3A015700 

3A015710 

3A0 15720 

3A0 15730 

3 AO 15740 

3A015750 

3A0 15760 

3A015770 

3A015780 

3A015790 

3A015800 

3A015810 

3A015820 

3A015830 

3A015840 

3A015850 

3A015860 

3A015870 

3A015880 

3A015890 

3A015900 

3A015910 

3A015920 

3A015930 

3A015940 

3A015950 

3A015960 

3A015970 

3A015980 

3A0 15990 

3A0I6000 

3A016010 

3A016020 

3A0 16030 

3A016040 

3A0 16050 

3A016060 

3A0 16070 

3A016080 

3A0 16090 

3A016100 

3A016110 

3A016120 

3A016130 

3A016140 

3A016150 



0014 





C022 


0015 





' D0F2 


0016 





FOED 


0017 





4818 


0018 





7006 


0019 





COIB 


OOIA 





lOOF 


OOIB 





4828 


ooic 





700A 


OOID 





C8EA 


noiE 





3006 


OOIF 





C0F4 


0020 





80E0 


0021 





D0F2 


0022 





90E7 


0023 





4828 


0024 





70EF 


0025 





C0E5 


0026 





DOED 


0027 





CBEO 


0028 





COOC 


0029 





1801 


002A 





9006 


002B 





4310 


002C 





70FD 


0020 





0804 


002E 





08D7 


002F 





3004 


0030 





08D1 


0031 





C0D2 


0O32 





D002 


0033 





3001 


0034 





70F8 


0035 





COCD 


0036 





1008 


0037 





DOCB 


0038 





COCB 


0039 





D0C6 


003A 





COCA 


003B 





1001 


00 3C- 





E8C4 


003D 





1008 


003E 





E8C2 


003F 





D0C5 


0040 





C0C6 


0041 





1009 


0042 





D0C4 


0043 





C0C9 


0044 





1004 


0045 





DOFO 


0046 





80C4 


0047 





D0C2 


0048 





70E7 


0049 





0000 


004A 





0000 


004B 





0040 


004C 





9000 


004D 





2000 


004E 





1000 


004F I 





1000 



CRLD LD 
STO 
FOR 
BSC 
MDX 
LO 
SLA 
BSC 
MDX 
LOD 
WAIT 
CRMOD LO 
A 

STO 
S 

BSC 
MDX 
LO 
STQ 
LDD 
LD 
SRA 
CRLHP S 

BSC 
MDX 
CRSTR XIO 
XIO 
WAIT 
CRRST XIO 
LD 
STO 
WAIT 
MDX 
CRBLD LD 
CRARA SLA 
STO 
LD 
STO 
LD 
SLA 
OR 
SLA 
OR 
STO 
LO 
SLA 
STO 
LD 
SLA 
STO 
A 

STO 
MDX 

DC 

DC 
DC 
DC 
DC 
DC 
DC 



CRARACl LOAD COLUMN READ 

CRERR SAVE BITS READ 

CRDSW COMPARE WITH PATT WD 

£- CK FOR COMPARE ERR 

CRMOD NO, SET UP NEXT CHK 

CRBLD YES, CK LOOP OPT 

15 * 

ez * 

CRLOP-3 LOOP ERR OPTION ON 

CRFRR LD DSW AND ERR BITS 

6 COMPARE ERROR WAIT 

CRLD SET UP NEXT COMPARE 

CRONE ♦ 

CRLD * 

CREND CK IF ALL COLUMNS 

£Z * CHECKED 

CRLD NO, COMPARE NXT COL 

CRSRA SET UP FOR NXT CARD 

CRLD ♦ 

CRERR LOAD LAST DSW IN 

CRBLD SET UP DELAY 

1 * 

CRONE * 

- ♦ 

* 

RD BIT SWS PATT WO 
READ A CARD 
WAIT FOR INTERRUPT 
RD SWS FOR DELAY/OPT 
SAVF DELAY/OPTIONS 

SET PATTERN IN SWS 

GO READ BIT SWS 

BUILD PROGRAM 
*A* TO /0050 WD CNT 80 
*A* TO ♦-* READ/ IN AREA 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
* 



CRLOP 

CRBSW 

CRRDR 

4 

CRBSW 

CRDSW 

CRBLD 

I 

CRSTR 

CRBSW61 

8 

CRBSWEl 
CRDSW 
CRBGN 
CRDSWei 

1 

CRONE 

8 

CRONE 

CRDSWCl 

CRRDRCl 

9 

CRRDREl 

CR080 

4 

CRARA 

CRSRA 

CREND 

CRRST 





/0040 

/9000 

/2000 

/lOOO 

/I 000 



EXECUTE PROGRAM 

SPACE FILLER 
* 

THE LAST FIVE WORDS ARE 

* USED FOR PROGRAM 

* IDENTIFICATION. THREE 

* FOR THE PID AND TWO FOR 

* SEQUENCE. 



3A0I6160 

3A016170 

3A016180 

3A016190 

3A015200 

3A016210 

3A016220 

3A0 16230 

3A0 16240 

3A016250 

3A016260 

3A016270 

3A016280 

3A016290 

3A0 16300 

3A016310 

3A016320 

3A016330 

3A016340 

3A0 16350 

3A015360 

3A016370 

3A016380 

3A016390 

3A016400 

3A016410 

3A016420 

3A016430 

3A016440 

3A016450 

3A016460 

3A016470 

3A016480 

3A016490 

3A016500 

3A016510 

3A016520 

3A016530 

3A016540 

3A016550 

3A0 16560 

3A016570 

3A016580 

3A016590 

3A0 16600 

3A016610 

3A016620 

3A0 16630 

3A0 16640 

3A016650 

3A0 16660 

3A0 16670 

3A016680 

3A016690 

3A0 16700 

3A016710 

3A016720 

3A016730 

3A016740 

3A016750 

3A016760 
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6.12 1403 PRINTER 

A. PRELOAD SWS 

B. LOADING 

C. WAIT 1 

2 
3 
5 
6 

D. RESTART 

E. COMMENTS 



**♦♦♦♦*♦♦**♦♦**♦♦♦♦**♦♦****♦******♦******♦•**•***** 3A0 16780 

3A0 16790 
THIS PROGRAM HILL PRINT ANY CHARACTER ENTERED 3A016800 
IN THE BIT SWITCHES 1-7 AND 9-15. IF BIT 14 IS 
THE BIT SWS 1-12 WILL BE THE CHANNEL THAT THE 
CARRIAGE WILL SKIP TO AFTER PRINTING. 



BIT SW 15- HALT AFTER ONE PASS. 

14- CARR SKIP FU^N:TION. 
1 THRU 12- CHANNEL NUMBER TO USE FOR SKIP. 

IPL MOOF FROM CARDS OR PAPER TAPE. 

SET CHARACTER TO PRINT, 1-7 AND 9-15. 

ONE PASS COMPLETED, PRESS START TO CONTINUE. 

LOST PRINTER INTERRUPT. 

LOST CARRIAGE INTERRUPT. 

PARITY ERROR FOUND IN THE DSW. 



PRESS IMMEDIATE STOP AND RESET. 
SWITCHES MAY BE SET AS DESIRED. 



PRELOADING 
PRESS START. 



2. 



TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 
ON OR BYPASS THE INTERRUPT WAIT LOAD /601F 
INTO LOCATION /OOIO AND /0030 AND RESTART. 

TO GET A FASTER LOOP THAN THE ABOVE PLACE 
/70FE IN THE NFXT LOCATION AFTER THE XIO. THE 
Xlb WILL BE EXECUTED AFTER EACH BRANCH. 



***♦»♦♦»♦******♦•♦*♦»*♦*****♦*****♦♦**♦************ 





0000 






0000 


6033 




0001 


0000 




0002 


DOOO 




0003 


FOlO 




0004 


9000 




0005 


COOO 




0006 


0001 




0007 


003A 




0008 


0004 




009 


9000 




OOOA 


0033 




OOOB 


OOOA 




OOOC 


OOIE 




OOOD 


OSFS 




OOOE 


C0F2 




OOOF 


OOEE 




0010 


1803 




0011 


00F2 




0012 


3001 




0013 


08F2 




0014 


COXD 




0015 


DOEC 




0016 


COEA 




0017 


00D2 




0018 


C0E9 




0019 


90EC 


J 


OOIA 


4820 




OOIB 


70F9 




OOIC 


08ED 


DATE 


15FEB68 25JUL59 


EC NO. 


420403 571053 



FPSWS 
FPOSW 

FPCAR 

FPBSW 

FPSKP 

FPPRT 



ORG 

LDX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



* 
FPSTR 



FPl 



FP2 



XIO 

LO 

STO 

SRA 

STO 

WAIT 

XIO 

LO 

STO 

LD 

DC 

LD 

S 

BSC 

HOX 

XIO 





FPBLD *A* LDX FPSTR 

*-* BIT SWITCH STG 

/DOOO ♦A* WORD COUNTER 

/FOlO *A* DC /AFOl 

/9000 CHANNEL BITS 

/COOO *A* DC /ACOO CARR CNTL 

FPSWS BIT SW STG AORS C ONE 

/003A *A* DC /3A00 READ BIT 

FPCAR CARR CHAN AORS 

/9000 *A* DC /A900 SKIP lOCC 

FPOUTEl PRINT AREA AORS 

/OOOA *A* DC /AOOO PRINT lOCC 

FPINT INTERRUPT AORS 

START AND RESTART OF PROGRAM 

FPBSW READ BIT SWITCHES 

FPSWS GET SW SETTINGS 

FPSWS-3 * AND SAVE 

3 

FPCAR SET CHAN NUMBER 

I SET CONSOLE SWS 

FPBSW READ PRINTER CODE 

FPOUT GET WORD COUNT 

FPDSW LOAD XR 2 

FPSWS GET PRINT CODE 

/00D2 *A* STO 2 FPOUT 

FPDSW GET COUNT AND 

FPBSW * SUB ONE 

Z AREA FILLED 

FP2-2 * NO 

FPPRT PRINT A LINE 



0N3A016810 
3A016820 
3A016830 
3A016840 
3A0 16850 
3A0 16860 
3A016870 
3A016880 
3A0 16890 
3A0t6900 
3A0t69t0 
3A016920 
3A0t6930 
3 AO 16940 
3A0 16950 
3A0 16960 
3A0 16970 
3A016980 
3A0 16990 
3A017000 
3A017010 
3A017020 
3A017030 
3A017040 
3A0 17050 
3A0 17060 
3A017070 
3A017080 
3A017090 
3A017100 
3A017110 
3A017120 
3A017130 
3A017140 
3A017150 
3A017160 
3A017170 
3A017180 
3A017190 
3A017200 
3A017210 
3A017220 
3A017230 
3A0 17240 
3 AO 17250 
3A0 17260 
3A017270 
3A017280 
3A017290 
3 AO 17300 
3A017310 
3A0 17320 
3A017330 
3A0 17340 
3A017350 
3 AO 17360 
3A017370 
3A017380 
3A017390 
3A0 17400 
3A017410 
3A017420 
3A017430 
3A0 17440 
3A017450 
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0010 





3003 


OOIE 





0000 


OOIF 





08E2 


0020 





4844 


0021 





601F 


0022 





4828 


0023 





3006 


0024 





1002 


0025 





4810 


0026 





70EC 


0027 





C006 


0028 





4804 


0029 





3002 


002A 





lOOE 


002B 





4810 


002C 





7002 


002D 





08DA 


0026 





7001 


002F 





08D4 


0030 





3005 


0031 





0001 


0032 





003C 



0033 





C013 


0034 





DOCB 


0035 





C8D5 


0036 





88C0 


0037 





18C4 


0038 





D8CB 


0039 





DOCF 


003A 





C8D0 


003B 





88C6 


003C 





18C4 


003D 





08C4 


003E 





DOCC 


003F 





C0C7 


0040 





1008 


0041 





00C5 


0042 





C0D4 


0043 





1008 


0044 





E8C5 


0045 





90EB 


0046 





DODO 


0047 





600D 


0048 





0000 


0049 





0000 


004A 





0000 


004B 





0040 


004C 





9000 


0040 





2000 


0046 





1000 


004F 





0800 



FPINT 



FP8 

FPOOl 
FPOUT 

* 
FPBLD 



WAIT 

DC 

XIO 

BOSC 

LDX 

BSC 

WAIT 

SLA 

BSC 

MDX 

LD 

BSC 

WAIT 

SLA 

BSC 

MDX 

XIO 

MOX 

XIO 

WAIT 

DC 
DC 



3 WAIT FOR PRINT INTERRUPT 

♦-* INTERRUPT ENTRY 

FPDSW SENSE OSW 

6 IS PRINTER READY 

FPINTtl ♦ NO 

6Z PARITY ERROR 

6 * YES 

2 * MO. 

PRINT COMPLETE 

FPl • NO, CARR INT* 

FPSWS-3 GET CONTROLS 

E HALT ON 

2 * VES 

14 * NO 

CARR SKIP FUNC 

FP8 * NO 

FPSKP SKIP TO CHAN 

FP8EI 60 WAIT INTERRUPT 

FPCAR * YES, SPACE 

5 WAIT FOR CARR INTR 

/OOOl CONSTANT 

60 WORD COUNT 



THIS WILL BE THE 
INITIALIZATION 



PRINT AREA AFTER 



FPBES 



LD 

STO 

LOO 

AD 

RTE 

STD 

STO 

LDD 

AO 

RTE 

STD 

STO 

LO 

SLA 

STO 

LD 

SLA 

OR 

S 

STO 

LDX 



/OOOA 
/900A 
/A900 



/OOOA 
/FOIA 
/AFOl 



FPR6S 

* S6T RESTART 

FPPRT+1 * A- /OOOA Q- 

FPCAR ♦ A- /COOA 0- 

* * A- /ACOO Q- 

FPCAR ♦ CONTROL lOCC 

FPSKPei ♦ SKIP lOCC 

FPPRT+1 • A- /OOOA 0- 

FPOSW * A- /DOOA 0- 

4 * A- /ADOO 0- 

FPDSW * SENSE OSW lOCC 

FPPRTCl * PRINT lOCC 

FPBSWei * 

8 * 

FPBSW61 * READ BIT SW lOCC 

FP2 ♦ 

8 * 

FPPRT * 

FPOOl ADJUST. DISPLACEMENT 

FP2 • BUILD STO 2 FPPRT 

FPSTR GO TO PROGRAM 



♦♦»♦*♦♦♦♦•*»♦**»**»****♦*♦*♦••♦♦•*•*****♦♦****•*•** 

DC SPACE FILLER 

DC • 

DC ♦ 

DC /0040 THE LAST FIVE WORDS ARE 

DC /9000 * USED FOR PROGRAM 

DC /2000 * IDENTIFICATION. THREE 

DC /lOOO * FOR THE PIO AND TWO FOR 

DC /0 800 * SEQUENCE. 
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3A017460 

3A017470 

3A017480 

3 AO 17490 

3A017500 

3A017510 

3A0 17520 

3A0I7530 

3A017540 

3A017S90 

3A017560 

3A017570 

)A017580 

3A0t7590 

SAO 17600 

SAO 17610 

SA017620 

3A0 17630 

SA017640 

3A017650 

3A0 17660 

SAO 17670 

3A0176S0 

SAO 17690 

SAO 17700 

3A017710 

SA017720 

3A017730 

3A017740 

3A017750 

3A017760 

3A017770 

SAO 17780 

3A0I7790 

SAO 17800 

3A017810 

3A017820 

SAO 17830 

SAO 17840 

SAO 17850 

3A017860 

SAO 17870 

3A017880 

3A017890 

3A017900 

3A017910 

SAO 17920 

SAO 179 30 

3A017940 

3A017950 

3A017960 

3A017970 

3A017980 

3A017990 

3A018000 

3A018010 

SAO 18020 



03A0-0 
14 



I DATE 
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***********************iL**i^**^^^t:1,*^:^^^,^^,^^^,^^,^^^^^ 3 AO 18040 



6.13 1132 PRINTER 



A. PRELOAD SWS 



B. LOADING 

C. WAIT 2 

3 
5 

D. RESTART 

E. COMMENTS 



0000 


^ 




0000 





6017 


0001 





3005 


0002 





OOIA 


0003 





OOFF 


0004 





0018 


0005 





E8C8 


0D06 





7013 


0007 





4803 


0008 





0020 


0009 





OOOA 


OOOA 





0827 


OOOB 





080C 


OOOC 





4850 


OOOD 





7023 


OOOE 





C018 


OOOF 





4820 


0010 





701B 


0011 





C039 


0012 





4808 


0013 





7027 


0014 





9034 


0015 





D03 5 


0016 





7023 


0017 





C0F2 


0018 





D0E7 



* 
* 

* 
* 

* 
* 
* 
* 
* 

* 

* 

* 

* 
* 

* 
* 
* 

* 
* 

* 
* 



3A018050 
3A0 18060 
3A018070 
3A018080 
15— HALT AFTER EACH LINE PRINTED. SW 15 3A018090 
ALSO CAUSES ONE EXTRA IDLE SCAN CYCLE. 3A018100 
THIS HAS A NEGLIGIBLE AFFECT ON SPEED. 3A0181 10 

3A018120 
3A018130 
3A018140 
3A018150 
3A018160 
3A018170 
3A018180 
3A018190 
3A018200 



THE CHARACTER ENTERED IN SWS 0-7 IS PRINTED IN 
ALL PRINT POSITIONS. 

BIT SW 



8-15 — PRINT SPEED CONTROL — ENTFR THE 

DESIRED NUMBER OF IDLF SCAN CYCLES 
TO BE TAKEN BETWEEN PRINT CYCLES. 

0-7=VALID CHARACTER—PRINT CHARACTER AS 

SHOWN ON PAGE 2. 

0-7=INVALID CHARACTER — IDLE CONTINOUSLY. 



NOTE— PROGRAM ALWAYS TURNS ON BIT 10 TO PREVENT 
OPERATING AT EXCESSIVE SPEEDS. SPEED MAY 
BE INCREASED BY MANUALLY CHANGING CONSTANT 3A013210 

USE CAUTION. 3A018220 
3A 01 82 30 
3A018240 
3A018250 
3A018260 
3A018270 
3A018280 
3A018290 
3A018300 
3A018310 

NO SPACE RESPONSE INTERRUPT, RESTART TO CONTINUE 3A018320 

3A018330 

PRESS IMMEDIATE STOP AND RESET. PRELOADING 

SWITCHES HAY BE SET AS DESIRFO. PRESS START. 



AT CORE LOCATION 0008. 
SWITCH SETTINGS MAY BE CHANGED AT ANY TIME. 
IPL MODE FROM CARDS OR PAPER TAPF 
ONE PASS COMPLETED, PRFSS START TO CONTINUE. 
NO EMITTER RESPONSE INTRPT, RESTART TO CONTINUE 



TO RUN WITHOUT INTERRUPTS. .MANUALLY ENTFR 
HEX 6008 AT CORE LOCATIONS 0001 AND 003A. 

TO CHANGE POSITIONS PRINTED. .MANUALLY ENTER 
DESIRED PATTERN IN CORE LOCATIONS OOIE AND OOIF. 
AT LEAST ONE BIT MUST BE ON IN SECOND WORD OOIF. 



**************^*****if^iH^ifiHf^*^iH^D,tf^f^^^i^if^ifif^Jt:^^^^f^^ 



PRGO 
PRRDS 



ORG 
LDX 
WAIT 



PRRD 



DC 
DC 
DC 
DC 
DC 
DC 

PRIDL DC 
OC 

PRINt DC 
XIO 
BOSC 
MDX 
LO 
BSC 
MDX 
LO 
BSC 
MDX 
S 

STO 
MDX 
LD 

PRDSW STO 





PRDSW-1 

5 

PRSWS 
/OOFF 
PREMT 
/E8C8 
/7013 
/4803 
/0020 
PRINT 
/0827 
PRDSW 

PRSPR 

PRSCN+7 

Z 

PRE NO 

PRDLY 

+ 

PRPRT 

PR 

PRDLY 

PRWT3 

PRINT 

PRGO 



*A* XIO 
WAIT 



*A* OC 



*A* DC 



FOR 



PRSPS SPACE PTR 
INTERRUPT 



/3A32 RD SWS 



/3200 



MINIMUM IDLE SCAN CYCLES 
INTERRUPT ADDRESS 
INTERRUPT ENTRY 

EMITTER RESPONSE 

* NO, TRY SPACE RESPONSE 

SCAN FIELD ZERO 

* NO, GO STOP PRINTER 

LAST IDLE SCAN CYCLE 

* YES, GO PRINT 
DECRE IDLE COUNT BY ONE 



3A018340 

3A018350 

3A018360 

3A018370 

3A018380 

3A018390 

3A018400 

3A018410 

3A0 18420 

3A018430 

3A0 18440 

3A018450 

3 AO 18460 

3A018470 

3A018480 

3A018490 

3A01850O 

3A018510 

RD EMITTER 3A018520 

3A018530 

3A018540 

3A018550 

3A018560 

3A018570 

3A018580 

3A018590 

3A018600 

3A018610 

3A0 18620 

3A018630 

3A018640 

3A018650 

3A0ia660 

3A018670 

3A018680 

3A018690 

3A018700 

3A018710 



0019 C8EC 




LDD 


PRRD+2 


*A* DC 


/3701 SENSE 


DSW 


3A018720 


OOIA 18C4 


PRSTR 


, RTE 


4 








3A018730 


OOIB DOFD 




STO 


PRDSW+1 


*A* DC 


/3480 START 


PTR 


3A018740 


OOIC 1300 


PRSTP 


RTE 


16 








3A018750 


OOID nOFD 




STO 


PRSTR+l 


*A* DC 


/3440 STOP PTR 


3A018760 


OOIE F02B 


PRFLD 


FOR 


PRDLY-l 


*A* DC 


/FFFF 




3A018770 


OOIF DOFD 




STO 


PRSTP+1 


*A* OC 


/FFFF 




3A018780 


0020 C8<^2 


PRSCN 


1 LDD 


PRRDS+1 








3A0 18790 


00?l 1RC8 




RTE 


8 








3A0 18800 


n022 «3E0 




AD 


PRRDS+1 








3A018810 


0023 DBFA 




STO 


PRFLD 








3A018820 


0024 COFO 




LD 


PRRD+1 








3A018830 


0025 1802 




SRA 


2 








3A018840 


0026 OOOC 




STO 


PRRDStl 








3A018850 


0027 1008 




SLA 


8 








3A018860 


0028 DODC 


PRSPS 


STO 


PPRD+1 








3A018870 


0029 COIC 




LD 


PR -3 


*A* DC 


/3401 SPACE 


PTR 


3A018880 


002A 1802 




SRA 


2 








3A018890 


002B DOFD 




STO 


PRSPS+1 








3A018900 


002C 08EF 


PREND 


XIO 


PRSTP 


STOP 


PRINTER 




3A018910 


002D COFC 




LD 


PRSWS 








3A018920 


002E 4804 




BSC 


E 


BIT SH 15 ON 




3A0 18930 


002F 3002 




WAIT 


2 


* YES, WAIT 




3A018940 


0030 70CF 




MDX 


PRGO 








3A018950 


001 A 


PRSWS 


EQU 


PRSTR 








3A018960 


0018 


PREMT 


EQU 


PRDSW 








3A018970 


0031 1002 


PRSPR 


SLA 


2 








3A018980 


0032 4850 




BOSC 


- 


SPACE RESPONSF 




3A0 18990 


0033 7007 




MDX 


PRINT+l 


* NO, 


i CHECK DSW AGAIN 




3A019000 


0034 lOEO 




SLC 


32 








3A019010 


0035 D3EA 




STO 


PRSCN 


CLEAfi 






3A019020 


0036 08FB 




STD 


PRSCN+2 


OR 


SET 




3A019030 


0037 D8EC 




STD 


PRSCN-t-4 


SCAN 




3A019040 


0038 08ED 




STD 


PRSCN+6 




FIELD 




3A019050 


0039 OBEO 




XIO 


PRSTR 


START 


• PRINTER 




3 AO 19060 


003A 3003 


PRWT3 


WAIT 


3 


WAIT 


FOR INTERRUPT 




3A019070 


0038 08C6 


PRPRT 


XIO 


PRRDS 


READ 


BIT SWITCHES 




3A019080 


003C 08C7 




XIO 


PRRD 


READ 


EMITTER 




3A019090 


0030 CODC 




LD 


PRSWS 


GET SWS 




3A019100 


003F F8C9 
003F 18C8 
0040 1006 




OR 

RTE 

SLA 


PRIDL 

8 

8 


OR MINIMUM IDLES 
ISOLATE CHARACTER 




3A019110 
3A019120 
3A019130 


0041 4820 




BSC 


Z 


SKIP 


IF NO CHAR ENTERED 


3A019140 


0042 F0n5 




FOR 


PRFMT 


COMPARE WITH EMITTER 




3A019150 


0043 4820 




BSC 


Z 


SKIP 


IF SAME CHAR 




3A019160 


0044 70F5 




MOx 


PRWT3 








3A019170 


0045 10C8 

0046 D004 




SLC 
STO 


8 
PRDLY 


SET IDLE COUNT 




3A019180 
3A019190 


0047 CSDA 




LDD 


PRFLD 








3A019200 


0048 70EC 




MDX 


PRSPRt4 








3A019210 


0049 0001 


PR 


DC 


/OOOl 








3A019220 


004A OOCO 




DC 


/OOCO 








3A019230 




**»****♦««♦*♦*#« *4^*;„,,^^^,^^^^^^^^^^,^^-^^^^^^^^^^ 


3A019240 


004B 0040 


PRDLY 


DC 


/Q040 


THE LAST FIVE WORDS ARE 


3A019250 


004C 9000 




DC 


/9000 


* USED FOR PROGRAM 




3A019260 


0040 2000 




DC 


/2000 


♦ IDENTIFICATION. THREE 


3A019270 


004P 1000 




DC 


/lOOO 


* FOR 


THE PID AND TWO 


FOR 


3A019280 


004F 0040 




DC 


/0040 


* SEQUENCE. 




3A019290 


0050 0000 

NO STATEMENTS 


FLAGG-^D IN 


END 
1 THE 



ABOVE ASSEMBLY 






3A01930O 



DATE 
EC NO. 



15FEB68 
420403 



25JUL69 
571053 



PROG ID 
PAGE 



03A0-0 
15 



DATE 
EC NO. 



15FFB68 
420403 



25JUL69 
571053 



PROG ID 
PAGE 



03A0-0 
15A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FDR THE 1130 SYSTEM 
1130 SCOPE LOOP PROGRAMS 



PART NO. 2243962 
PAGE 16 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 11.30 SYSTEM 
1130 SCOPE LOOP PROGRAMS 



PART NO. 2243962 
PAGE 16A 



CPALT 

CPBGN 

CPBLD 

CP8SH 

CPCTL 

CPOSV 

CPDSW 

CPIN4 

CPLOP 

CPONE 

CPRDS 

CPRET 

CPSEN 

CPSET 

CPWRT 

CRARA 

CRBGN 

CRBLD 

CRBSW 

CROSV 

CRDSW 

CRENO 

CRERR 

CRIN4 

CRLO 

CRLOP 

CRMOD 

CRONE 

CRRDR 

CRRST 

CRSRA 

CRSTR 

CR080 

DCBGN 

DCBLD 

OCBSH 

DCDSM 

DCEND 

DC INT 

DCGNl 

DC0N2 

DC0N3 

DC0N5 

OCRD 

DCSWS 

OCWR 

DCXR3 

DCl 

DC 3 

DCS 

DC 6 

DKBDl 

0KB02 

DKBGN 

OKBIT 

OKBLD 

OKBSW 

DKCON 

OKDSV 

DKDSW 

DKENT 

DKHME 

0KIN2 

OKMOV 

DKRST 

DKSEK 

DKOFF 

DK004 



0000 
0000 
0012 
0002 
0009 
OOOB 
0006 
002C 
0036 
0001 
OOID 
0032 
0022 
0008 
0004 
0036 
0000 
0035 
0002 
0009 
0004 
OOOA 
0008 
OOOE 
0014 
002A 
OOIF 
0001 
0006 
0030 
OOOB 
0020 
0000 
0000 
0020 
0008 
004C 
004B 
OOOB 
0004 
0006 
0000 
0002 
004E 
0001 
0050 
0003 
003C 
OO^t 
0014 
0048 
OOOF 
0010 
0000 
OOOE 
OOIB 
0002 
0042 
OOOB 
0008 
0001 
0004 
0011 
003A 
0020 
0006 
0000 
OOOC 



003E 
OOIC 
0000 
0018 
OOOE 
0022 
0002 
OOOC 
0038 
0036 
0009 
002 B 
OOOF 
OOlF 
0012 
0006 
0039 
0000 
0020 
0010 
0002 
0022 
0015 
OOOC 
OOIF 
OOIC 
0018 
0020 
002E 
0004 
0025 
0034 
0043 

0000 
0019 
OOOC 
OOIB 
OOOA 
0026 
0031 
0039 
0020 
002C 
0008 
0030 
0018 
OOIF 
003A 
OOID 
0013 
0026 
002A 
OOIC 
0002 
0000 
OOID 
OOIA 
0013 
0012 
0017 
0020 
OOOA 
0019 
OOOE 
002E 
0043 
003B 



0042 



OOIA OOID 0021 

OOIB 003C 003F 

0024 0028 002E 002F 0032 

0004 0015 0017 001 E 0023 002D 0039 003B 

0031 



0011 0027 0043 
0033 0040 
0014 0029 
0014 0045 

0019 0028 0032 
0030 0035 0037 

OOOF 0016 0031 0038 003A 003F 

0047 

0010 0027 

0013 

0021 0024 0026 

002C 

002A 003C 003E 
0040 0042 
0048 
0046 



0022 0023 003C 0040 

0011 0028 0045 0048 

0036 

0010 

002A 002E 



0049 

0015 0024 003D 
0034 0042 0046 
OOIA 0035 003F 0041 

0044 
0038 



OOIB 0021 0025 002 8 002C 0031 0042 

OOIF 0020 0030 

0035 0036 003D 

0022 0029 0034 0045 

0037 003F 

0038 

0016 

0048 

E 0033 003A 003C 0040 0044 



FPBLD 
FPBSW 


0033 
0006 


0000 
0000 


0013 


0019 


003F 


0041 




FPCAR 


0004 


0008 


0011 


002F 


0036 


003 8 




FPOSW 


0002 


0015 


0018 


OOIF 


003B 


003 D 




FPINT 


OOIE 


OOOC 


0021 










FPOUT 


0032 


OOOA 


0014 










FPPRT 


OOOA 


OOIC 


0035 


003A 


003E 


0044 




FPRES 


0047 


0033 












FPSKP 


0008 


0020 


0039 










FPSTR 


OOOD 


0047 












FPSWS 


0001 


0006 


OOOE 


OOOF 


0016 


002 7 




FPOOl 


0031 


0045 












FPl 


0013 


0026 












FP2 


0017 


OOIB 


0042 


0046 








FP8 


002F 


002C 


002E 










KYBGN 


0000 


0031 












KYBLO 


0024 


0000 












KYBSW 


0002 


0012 


0024 


0026 


0036 






KYOCH 


OOOD 


0021 












KYDSP 


0022 


0010 












KYDSV 


OOOB 


0014 












KYDSW 


0004 


0002 


0013 


OOIE 


0027 


0029 0030 


0037 


KYIN4 


0011 


OOOC 


003A 


003D 








KYKEY 


OOOA 


0008 


0000 


OOOF 


0022 


0035 003B 




KYONE 


0001 














KYRD 


0008 


OOIC 


002D 


002F 








KYRDW 


OOIC 


0018 












KYREQ 


0019 


0017 












KYRST 


0032 


0004 












KYSEL 


0006 


OOID 


002A 


002C 


0033 






KYSET 


0036 


0018 


0023 










PHBLD 


0037 


0000 












PHBSW 


0004 


0016 


0018 


0027 


003E 


0040 




PHCTR 


0002 


0017 


0019 


0026 








PHOSW 


OOOA 


0012 


OOIE 


0041 


0043 






PHFEO 


0000 


0030 


003C 


003D 








PHI NT 


0011 


0008 


OOOC 


0024 








PHK50 


OOOE 


OOIA 












PHPCH 


0006 


0020 


0044 


0046 








PHPST 


0008 


0031 


0039 


003B 








PHRES 


004A 


0037 












PHSTK 


OOOC 


0033 


0047 


0049 








PHSWS 


0003 


0006 


OOID 


OOIF 


0028 


0034 




PHI 


OOOF 


004 A 












PH2 


0030 


0010 


0036 










PH4 


0020 


OOIC 












PH6 


0022 


0015 












PH8 


0033 


002D 












PLALT 


0048 


0045 












PLBGN 


0000 


0010 












PLRLD 


0012 


0000 












PLRSW 


0002 


0019 


OOIB 


OOIE 


0022 






PLCTL 


0013 


0043 


0046 


0049 








PLDSV 


0009 


OOOE 


002C 


002E 


0032 


003 5 




PLOSW 


0006 


0002 


0004 


OOOD 


0015 


0018 OOIF 


002 3 


PLIN3 


OOOC 


OOOB 


0010 










PLLOP 


0038 


003A 












PLONE 


0001 


0017 


0038 










PLOT 


0004 


0012 


0014 


0033 








PLRDS 


OOIE 


oooe 












PLRFT 


0035 


0011 












PLPST 


0008 


OOIC 












PLSEN 


002C 


0031 


004A 










PLSET 


OOOA 


0020 


0036 










PLSTR 


0022 


0026 


002B 


0040 


0047 






PR 


0049 


0014 


0029 










PRDLY 


004B 


0011 


0015 


OOIE 


0046 






PRDSW 


0018 


0000 


OOOB 


OOIB 
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PRf MT 

PRFNO 

PRFin 

PR GO 

PRIOL 

PRINT 

PRPRT 

PHRO 

PRRDS 

PR SON 

PRSPR 

PRSPS 

PRSTP 

PPSTR 

PRSWS 

PRWT3 

ROARA 

ROBGN 

RDBLD 

RDBSW 

RDCOP 

Ronsv 

RODSW 
ROERR 
ROESM 
RDINT 
R0I04 
RDLOP 
RDONE 
RORGO 
RDRRD 
RORST 
RDOFF 
STGBO 
STGCR 
STGHL 
STGLC 
STGPG 
STGPN 
STGRO 
STGRS 
STGSP 
STGST 
STGSW 
STGXX 
STGO 
STGl 
STGIO 
STG2 
STG3 
STG7 
TPALT 
• TPBGN 
TPBLO 
TPBSW 
TPCTL 
TPOSV 
TPOSH 
TPIN4 
TPLOP 
TPNOT 
TPON€ 
TPMT 
TPROS 
TPRET 
TPSEN 
TPSET 
TPMRT 



0018 

oo?c 

00 IE 

ouoo 

0008 

OOOA 

003B 

0004 

0002 

0020 

0031 

002 P 

OOIC 

OOIA 

OOIA 

003A 

0001 

0000 

OOIF 

0002 

0038 

OOOB 

0006 

OOOA 

0020 

0037 

OOOF 

003E 

OOOF 

0008 

0004 

0020 

GOOD 

003F 

0004 

0005 

0002 

003E 

0003 

0006 

0048 

0049 

0009 

0001 

0008 

0023 

0025 

003A 

0026 

002A 

0021 

002B 

0000 

0000 

0002 

0009 

OOOB 

0006 

0033 

003C 

0046 

0001 

002 B 

OOIC 

003A 

0020 

0008 

0004 



0004 

0010 

002 3 

0018 

003E 

0009 

0013 

0019 

0020 

OOOE 

0000 

002B 

OOIF 

0010 

0002 

0016 

0004 

002C 

0000 

OOIF 

0013 

0011 

0002 

OOIC 

OOID 

OOIA 

0008 

0040 

003E 

0025 

0014 

0006 

0031 

0009 

0015 

001 1 

0024 

0037 

OOOE 

OOOF 



0042 



0047 
00 30 

0017 0033 



0024 
0022 
0035 
0048 

002C 
0039 
0020 
0044 
0018 

002F 
0021 

003B 
0010 

0034 
OOIE 
OOOC 



0028 003C 
0026 003B 
0036 0037 0038 



003D 

OOlB 0032 

003C 0044 
0020 0035 

0048 

0015 0022 0024 002B OOZE 

0041 
0047 
003A 



TPlOO 

TRAOV 

TRALT 

TRARA 

TRBGN 

TRRtO 

TRBSW 

TRCTL 

TRDSV 

TROSW 

TRIN4 

TRI4A 

TRLOP 

TRNOT 

TRPAT 

TRRD 

TRRST 

TRSBW 

TRSTR 

TRIOO 

END OF 



OOOA 0019 0029 

OOOA 0029 002C 0041 

003F 0047 004A 

0024 0008 OOOE 0018 OOIA 

0000 002E 

0021 0000 0015 OOlB 0031 0035 

0010 0021 0023 002F 0039 

0026 003A 0030 0044 

0025 0003 

OOOC 0002 0010 0024 0026 

0001 0006 0020 
0012 0009 

0010 0014 0017 OOIF 

0043 003C 

0048 0038 

OOOE 0007 002B 

002F 0001 

0023 0010 0012 

0035 0020 

0022 0028 0049 
ASSEMBLY 



0030 0034 003E 0040 0045 0048 
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0027 0036 

0028 002A 
0043 004A 



0022 0023 
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0034 0036 

00 3E 
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0014 0017 0029 002C 0035 0041 0043 



003F 

0000 

0010 

OOOB 

0020 

0039 

0033 

0044 

0047 

OOID 

0045 

OOlB 

0000 

0014 

OOIA 

002E 

0002 

OOOC 

003E 

0041 

0012 

0025 

0009 

0032 

0027 

OOIE 

0000 



0040 0048 0049 
0018 
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0030 
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0016 OOIC 0026 
002C 003F 0046 

loll 0o!o Sou OOID 0021 0028 002A 0020 0035 0042 0044 
0039 



0017 0030 
004A 



0022 003A 0047 
OOOF 0030 



OATF 
FC NO. 



15FFB68 
420403 



25JliL69 
571053 



PROG 
PAGE 



ID 



03A0-0 
17 



DATE 

FC NO. 



15FEB68 
420403 



25JUL69 
571053 



PROG ID 
PAGE 



03AO-0 
I7A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 DIMAL-CARD AND PAPER TAPE 



PART NO. 2243961 
PAGE 1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 DIMAL-CARD AND PAPER TAPE 



PART NO. 2243961 
PAGE lA 



TABLE OF CONTENTS 
PARAGRAPH PAGE 

1. PURPOSE lA 

2. REQUIREMENTS lA 

2.1 PROGRAM REQUIREMENTS 

2.2 EQUIPMENT REQUIREMENTS 

3. USE PROCEDURE lA 

3.1 INITIAL DISK PACK GENERATION. 
(L0A0ER/0R6AMIZER SECTION) 

3.2 EXISTING DIMAL DISK PACK MODIFICATION 
(LOADER/ORGANIZER SECTION) 

3.2.1 GENERAL OPERATING INSTRUCTIONS 

3.2.2 ADD PROGRAM TO DIMAL PACK 

3.2.3 DELETE PROGRAM FROM DIMAL PACK 
3. 2. A ENTER HEX PATCH CARDS SEPARATELY 

3.2.5 LIST CONTENTS OF DIMAL LOCATION DIRECTORY 

3.2.6 LIST CONTENTS OF PATCH TABLE 

3.2.7 PUNCH CALL CARDS. 

3.2.8 LIST CALL SEEK COUNT. 

3.2.9 DELETE PATCHES FOR A GIVEN PID 

3.2.10 PUNCH CALL TAPE. 

3.3 DIAGNOSTIC PROGRAM SELECTION AND EXECUTION 
(SELECT/EXECUTE SECTION) 

3.3.1 GENERAL OPERATING INSTRUCTIONS 

3.3.2 DIAGNOSTIC MONITOR PROGRAMS SELECTION 

3.3.3 NON MONITOR PROGRAMS SELECTION 

3.4 PROGRAM WAITS 

3.5 RESTART PROCEDURES 

4. PRINTOUTS 9 

4.1 STATUS MESSAGES 

4.2 COMMAND MESSAGES 

4.3 DATA MESSAGES 

4.4 ERROR MESSAGES 

5. COMMENTS 12A 

5.1 INITIAL LOADER 

5.2 DIMAL HEADER SECTION 

5.3 COLD START LOADER 

5.4 DIMAL LOADER/ORGANIZER SECTION 

5.5 DIMAL SELECT/EXECUTE SECTION 
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6.1 CONSOLE ENTRY SWITCHES CALL ROUTINE 

6.2 DIMAL HEADER TEST ERROR PROCEDURE 



PURPOSE 

THE PURPOSE OF DIMAL IS TO GENERATE A MAINTENANCE LIBRARY OF 1130 DIAGNOSTIC 
FUNCTION TESTS, AND THEN TO PROVIDE A METHOD FOR BRINGING THESE DIAGNOSTIC 
TESTS INTO CORE FOR PROGRAM EXECUTION. 

REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

A. DIMAL CAN BE LOADED ON DISK USING ANY ONE OF THE FOLLOWING IPL 
DEVICES- 

1442 CARD READER, 2501 CARD READER, OR 1134 PAPER TAPE READER. 
THESE DEVICES SHALL BE REFERED TO, COLLECTIVELY, AS INPUT DEVICES 
THROUGHOUT THIS DOCUMENTATION. 

B. DIMAL IS CALLED FROM THE DISK PACK BY ONE OF THREE WAYS 

1. CALL CARD (SEE SECTION 3.3.1.). 

2. CALL TAPE (SEE SECTION 3.3.1). 

3. CONSOLE ENTRY SWITCHES (SEE APPENDIX SECTION 6.1). 

2.2 EQUIPMENT REQUIREMENTS 

A. 1131 CPU. 

B. 4K CORE STORAGE. 

C. ANY OF THE FOLLOWING INPUT DEVICES- 

1442 CARD READER, 2501 CARD READER, OR 1134 PAPER TAPE READER. 

D. CONSOLE PRINTER. 

E. DISK DRIVE. 

F. 2315 C.E. DISK PACK. TRACKS 90-110 ARE NOT USED. 



3. USE PROCEDURE 



3.1 



INITIAL DIMAL DISK PACK GENERATION I 



THE FOLLOWING PROCEDURE SHOULD BE FOLLOWED TO LOAD DIMAL AND THE 
DIAGNOSTIC FUNCTION TESTS ON THE C.E. DISK PACK. 

1. LOAD AND EXECUTE PROGRAM PID 0308 (2315 DISK INITIALIZATION 
PROGRAM) TO ENSURE THAT THE DISK SECTORS ARE PROPERLY ADDRESSED, 
AND THAT ANY BAD CYLINDERS ARE DEFINED. 

REFER TO DIAGNOSTIC MONITOR AND 2315 PROGRAM DOCUMENTATION FOR 
OPERATING PROCEDURES. 

2. LOAD AND EXECUTE PROGRAM PID 0309 (2310 DISK FUNCTION TEST) TO 
INSURE THAT THE DISK DRIVE IS OPERATING CORRECTLY. REFER TO 
DIAGNOSTIC MONITOR AND 2310 PROGRAM DOCUMENTATION FOR OPERATING 
PROCEDURES. 

3. AT THE INPUT DEVICE- 

A. CARD READER-1442 OR 2501. 

PLACE PROGRAM DECK 0302 (DIMAL SYSTEM) IN THE HOPPER BEHIND 
THE 1442 OR 2501 RELOCATING LOADER DEPENDING ON THE INPUT 
DEVICE. MAKE THE CARD READER READY. 

B. PAPER TAPE-1134- 

READ THE PAPER TAPE RELOCATING LOADER (PID 03AC) INTO CORE. 
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4. 



5. 



PLACE THE DIMAL TAPE (PID 0302) IN THE 1134 P.T. READER. 
SET CONSOLE ENTRY SWITCHES TO /0078, SET MODE SWITCH 
TO LOAD, AND PRESS LOAD lAR BUTTON. SET MODE SWITCH 
TO RUN. PRESS THE 1131 CPU START BUTTON. 

OBTAIN THE PROGRAM DECKS OR TAPES FOR THE DIAGNOSTIC FUNCTION 
TESTS TO BE LOADED ON THE DISK. 

A. THE FOLLOWING PROGRAMS CAN BE LOADED ON THE DISK- 

1. 1130 DIAGNOSTIC PROGRAMS. 

2. RPQ PROGRAMS. 

3. 2250 DISPLAY PROGRAMS. 

4. LATEST LEVEL OF THE 1130 DIAGNOSTIC MONITOR II. 

*** VERY IMPORTANT NOTE*** 

IN GENERALf ANY PROGRAM TO BE LOADED ON DISK MUST OBSERVE 
THE FOLLOWING RULES TO BE DIMAL COMPATIBLE - 

1. PROGRAM ID IS THE FIRST WORD IN THE PROGRAM. 

2. PROGRAMS WITH PIDS LESS THAN 9F - MONITOR CONTROLLED 
PROGRAMS- SHOULD NOT HAVE MORE THAN 256 CARDS PER DECK. 

3. IF A NON-MONITOR PROGRAM ORGS AT MORE THAN ONE PLACE, 
THEN EACH ORG ADDRESS MUST BE NUMERICALLY GREATER THAN 
THE PREVIOUS ORG ADDRESS. 

THE FOLLOWING PROGRAMS SHOULD NOT BE LOADED ON THE DISK. 

1. PID 03A3 BASIC DIAGNOSTIC LOADER. 

PID 03A5 ONE-CARD DIAGNOSTIC PROGRAMS. 

PID 03AD BASIC DIAGNOSTIC LOAOER-2501. 

PID 03A6 CORE STORAGE ADJUSTMENT TEST. 



B. 



2. 

3. 
4. 
5. 

6. 
7. 
8. 



PIDS 03AA, 03AB, 03AC RELOCATABLE LOADERS FOR THE 1442, 
2501, AND PAPER TAPES, RESPECTIVELY. 

SCA INTEGRITY TEST. 

ONE CARD SCOPE LOOPS PID 03A0. 

PID 030A DISK ADJUST. 



PLACE THE DFT PROGRAMS IN THE READER BEHIND DIMAL. PATCHED 
DECKS CAN BE LOADED PROVIDED THAT PATCH CARDS ARE INSERTED 
JUST BEFORE THE LAST CARD OF EACH DECK. HEX PATCH CARDS MAY BE 
ENTERED SEPARATELY TO PATCH EXISTING PROGRAMS ALREADY ON DISK. 
REFER TO SECTION 3.2.4 FOR DETAILS. 



*** IMPORTANT NOTE *** 
THE FOLLOWING PROGRAMS CAN NOT BE PATCHED 



1. 1130 DIAGNOSTIC MONITOR II. 

2. PROGRAMS WITH PIDS GREATER THAN 9F. 

3. PROGRAMS PUNCHED IN 8-8 FORMAT. 



6. THE DFT PROGRAM DECKS MAY BE LOADED IN ANY ORDER. DO NOT PLACE 
BLANK CARDS AT THE END OF THE PROGRAMS. 

7. AT THE 1131 CPU, PRESS THE RESET AND PROGRAM LOAD BUTTONS. 
DIMAL SHOULD START READING IN. 



8. 



MESSAGE C015 IS PRINTED REQUESTING THE AREA CODE FOR THE 
DISK DRIVE. ENTER THE AREA CODE IN CONSOLE SWITCHES 
AND PRESS START. 



I DISK DRIVE I 


AREA CODE I 


I CPU 


/2000 I 


I 1 1 


/8800 I 


I 2 


/9000 I 


I 3 


/9800 I 


I 4 


I /AOOO I 



9. MESSAGE C014 IS PRINTED REQUESTING CE CYLINDER NUMBER. 
ENTER IN CONSOLE SWITCHES /00C7 UNLESS OTHERWISE INDICATED 
DURING THE RUNNING OF THE DISK INITIALIZATION TEST (PID 0308). 
PRESS START. 

NOTE - IF THE INTERRUPT REQUEST KEY WAS ACCIDENTLY PRESSED, THE 

INITIAL LOADER MUST BE RESTARTED. THIS CAN BE ACCOMPLISH- 
ED BY PRESSING STOP, RESET, AND START BUTTONS ON THE 1131 
CPU. 

10. MESSAGE C006 IS PRINTED ASKING THE CE FOR THE NUMBER 

OF THE INPUT DEVICE. ENTER IN THE CONSOLE SWITCHES ONE OF 
THE FOLLOWING NUMBERS-DEPENDING ON THE INPUT DEVICE 
BEING USED- /1442, /2501, /1134. PRESS START. 

11. COMMUNICATION OF ERRORS AND OPERATOR ACTIONS IS VIA PRINTOUTS 
AND PROGRAM WAITS. REFER TO SECTION 4.0 PRINTOUTS, AND SECTION 
3.4 PROGRAM WAITS TO DETERMINE WHAT ACTION MUST BE TAKEN 
FOLLOWING A PRINTOUT OR PROGRAM WAIT. 

12. DFT'S WILL START LOADING UNTIL THE INPUT DEVICE GOES NOT READY. 
MESSAGE COOT IS PRINTED ASKING THE CE TO READY THE INPUT DEVICE. 

NOTE - INCASE OF CARD READER ERROR CHECKS -SUCH AS READ REG- NPRO 

THE CARD(S), PLACE IN FRONT OF REMAINING DECK IN THE HOPPER, 
AND MAKE IT READY. AT THE 1131 CPU, PRESS START. 
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13. AT THE CARD READER PRESS THE START BUTTON. THE READER SHOULD GO 
READY FOR THE LAST CARD. FOR PAPER TAPE, PLACE A STRIP OF 
BLANK TAPE OVER THE READ STATION. 

14. AT THE 1131 CPU PRESS START IF THE INPUT DEVICE IS A 2501 
CARD READER . THE LAST CARD SHOULD READ IN. THIS STEP IS NOT 
REQUIRED FOR A 1442 CARD READER OR 1134 PAPER TAPE READER. 

15. DIMAL PRINTS MESSAGE COOl. 

IF IT IS DESIRED TO LOAD MORE DFT'S READY THE INPUT DEVICE MITH 
DFT PROGRAMS AND PRESS START. DFT LOADING WILL CONTINUE AS 
BEFORE. 

16. IF DFT LOADING IS COMPLETED, SET CONSOLE ENTRY SMITCHES TO /FFCC 
AND PRESS START. 



3.2 EXISTING DIMAL DISK PACK MODIFICATION (LOADER/ORGANIZER SECTION) I 



I WARNING I 



I. GENERAL OPERATING INSTRUCTIONS 



A. PLACE THE C.E. DISK PACK CONTAINING THE MAINTENANCE LIBRARY 
ON THE DESIRED DISK DRIVE AND MAKE THE DRIVE READY. 

B. OBTAIN THE CALL CARD OR PAPER TAPE PROVIDED BY 
DIMAL DURING INITIAL DISK LIBRARY GENERATION. 

IF IT IS DESIRED TO CALL DIMAL VIA DATA ENTRY SWITCH CALL 
ROUTINE, REFER TO APPENDIX SECTION 6.1. 

C. SET CONSOLE ENTRY SWITCHES TO /XXOl (WHERE XX IS THE DISK 
AREA CODE) TO CALL THE LOADER/ORGANIZER INTO CORE. 



FAILURE TO SET THE SWITCHES PROPERLY TO /FFCC WILL NOT COMPLETE 
THE GENERATION OF THE DIMAL PACK. RELOADING DIMAL IS NECESSARY. 

17. DIMAL WILL COMPLETE THE GENERATION FUNCTION AND PRINT MESSAGE 
DOOl (LOCATION DIRECTORY). PRESS START FOR A LISTING OF THE 
PROGRAMS AND THEIR LOCATIONS ON DISK. 

**************** 
I NOTE TO CE I 

THE LOCATION DIRECTORY LISTS THE PROGRAM ID, THE ADDRESS OF 
THE STARTING CYLINDER, THE TOTAL NUMBER OF SECTORS OCCUPIED 
BY THE PROGRAM, AND THE STARTING SECTOR. 

HOWEVER, FOR A QUICK REFRENCE TO THE PROGRAMS ON DISK, DIMAL 
OFFERS AN OPTION THAT LISTS ALL THE PIOS WITHOUT THE OTHER 
INFORMATION. IF SUCH AN OPTION IS DESIRED AT THIS POINT 
PRESS STOP, RESET, AND START ON THE 1131 CPU. MESSAGE C004 
(SELECT OPTIONS) WILL BE PRINTED. REFER TO SECTION 3.2.11 
FOR OPERATING PROCEDURES. 

OPTION 6 AND OPTION 5 OR 8 MUST BE PERFORMED AFTER THE 
PID TABLE HAS BEEN PRINTED. 

18. MESSAGE D003 IS THEN PRINTED. THIS MESSAGE INDICATES A SEEK 
COUNT WHICH IS REQUIRED BY THE BIT SWITCH ENTERED CALL ROUTINE. 
IT IS SUGGESTED THAT THIS PRINTOUT BE TAPED TO THE C.E. DISK 
PACK TO AVOID LOSS. 

19. MESSAGE C004 IS PRINTED ASKING THE CE TO SELECT OPTIONS. 
A CALL CARD OR TAPE MUST BE PUNCHED AT THIS TIME. 

REFER TO SECTION 3.2.7 TO PUNCH A CALL CARD OR 3.2.10 TO PUNCH A 
CALL TAPE. 

^^•♦♦xi**^'******** IMPORTANT NOTE ***********«**=»********«** 

* * 

* RUNNING OF THE 2315 DISK INITIALIZATION PROGRAM ON THE * 

* MAINTENANCE LIBRARY PACK WILL CAUSE THE LIBRARY TO BE * 

* DESTROYED. * 
*♦**#*****♦*»**************************=******************* 



I 


DISK DRIVE 1 


AREA CODE 


I 




CPU 


/2001 






1 


/8801 






2 


/9001 






3 


/9801 






4 


/AOOl 





WARNING- FAILURE TO SET 1 IN SWITCH 15 COULD DESTROY THE 
DIRECTORY TABLE DURING 'ADD A PROGRAM* OPTION. 
IT IS RECOMMENDED THAT DIMAL BE RECALLED WITH THE 
PROPER SETTING OF SWITCHES-REFER TO STEP B ABOVE. 

D. IPL THE CALL CARD OR TAPE. 

E. MESSAGE C006 IS PRINTED ASKING THE C.E FOR THE NUMBER 

OF THE INPUT DEVICE. ENTER IN THE CONSOLE SWITCHES ONE OF 
THE FOLLOWING NUMBERS-DEPENDING ON THE INPUT DEVICE 
BEING USED- /1442, /2501, /1134. PRESS START. 

F. THE CALL CARD OR TAPE WILL FIRST LOAD THE DIMAL HEADER TESTS. 
IF THE HEADER TESTS RUN SUCCESSFULLY (RUN TIME APPROXIMATELY 
1 SEC), THE COLD START LOADER WILL BE BROUGHT INTO CORE AND 
IN TURN WILL LOAD THE DIMAL LOADER/ORGANIZER SECTION. 

IF AN ERROR WAIT OCCURS, REFER TO SECTION 6.2 FOR ERROR 
PROCEDURE. 

G. THE LOADER/ORGANIZER THEN PRINTS MESSAGE C004. 

TABLE 1 SUMMERIZES THE OPTIONS AVAILABLE WITH THE LOADER/ 
ORGANIZER SECTION. 

OPERATING PROCEDURES FOR THE OPTIONS FOLLOW TABLE 1. 
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TABLE 1 
LOADER/ORGANIZER OPTION SWITCHES 



3. DELETE PROGRAM FROM DIMAL PACK (SWITCH 1) 



CONSOLE ENTRY 
01234567 



. . 1 
. 1.. 

X • • • • 



TCHES * 

DESCRIPTION 
..LIST ALL PIDS ON DISK. 
..PUNCH CALL PAPER TAPE 
..DELETE HEX PATCHES FOR A GIVEN PID. 
..LIST THE CALL SEEK COUNT REQUIRED BY THE CONSOLE 

ENTRY SWITCH CALL ROUTINES. 
..PUNCH CALL CARDS. 
..LIST CONTENTS OF PATCH TABLE. 
..LIST CONTENTS OF LOCATION DIRECTORY. 
..ENTER HEX PATCHES SEPARATELY. 
..DELETE PROGRAM. 
..ADD PROGRAM. 



ONLY 1 OPTION AT A TIME MAY BE PERFORMED. OPTION PRIORITY IS FROM 
SWITCH TO SWITCH 9. 



* 

* 

* 

* 
* 
* 
* 

* 
* 
* 

* 
* 



2. ADD PROGRAM TO DIMAL PACK (SWITCH 0) 



A. SET CONSOLE ENTRY SWITCH It CLEAR ALL OTHERS, AND PRESS 
START. 

B. DIMAL PRINTS MESSAGE C002 INFORMING THE C.E. TO ENTER THE 
PID OF THE PROGRAM TO BE DELETED VIA CONSOLE ENTRY SWITCHES. 

C. ENTER THE PID OF THE PROGRAM TO DELETE IN CONSOLE ENTRY 
SWITCHES 8 THROUGH 15 AND PRESS START. 

D. DIMAL WILL DELETE THE PROGRAM SPECIFIED AND PRINT A NEW 
LOCATION DIRECTORY. IF A PROGRAM HAS BEEN LOADED ON THE 
DISK MORE THAN ONCE, THEN THE ABOVE PROCEDURE MUST BE 
REPEATED TO DELETE THAT PID AGAIN. IF THE PROGRAM 

WAS NOT ON DISK, MESSAGE C004 IS PRINTED (SELECT OPTIONS). 

NOTE-IF A DIRECTORY TABLE IS NOT DESIRED AT THIS TIME, 

PRESS THE 1131 STOP, RESET, AND START. THIS WILL ALLOW 
MESSAGE C004 TO BE PRINTED ASKING THE CE TO SELECT OPTIONS. 

E. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE C.E. TO SELECT OPTIONS. 

4. ENTER HEX PATCH CARDS SEPARATELY. (CARD PROGRAMS ONLY) (SWITCH 2) 



A. READY THE INPUT DEVICE WITH THE PROGRAM OR PROGRAMS 
TO BE ADDED. INSURE THAT THE PATCH CARDS IF ANY 
ARE INSERTED JUST BEFORE THE LAST CARD OF EACH DECK. 
DO NOT SEPARATE DECKS WITH BLANK CARDS. 

B. AT THE CPU SET CONSOLE ENTRY SWITCH 0, CLEAR ALL 
OTHERS, AND PRESS START BUTTON. PROGRAMS SHOULD 

READ UNTIL THE READER BECOMES EMPTY OR THE END OF TAPE IS 
REACHED. 

NOTE-INCASE OF CARD READER ERROR CHECKS -SUCH AS READ REG- 
NPRO THE CARO(S), PLACE IN FRONT OF REMAINING DECK IN 
THE HOPPER, AND MAKE IT READY. AT THE 1131 CPU, PRESS 
START. 

C. PRESS THE READER START BUTTON TO READY IT FOR THE LAST CARD. 
THIS STEP IS INAPPLICABLE TO PAPER TAPE. 

D. PRESS THE 1131 CPU START BUTTON IF THE INPUT DEVICE IS 
A 2501 CARD READER. LAST CARD SHOULD READ IN. THIS STEP 
IS NOT REQUIRED IF THE INPUT DEVICE IS A 1442 CARD READER 
OR AN 1134 PAPER TAPE READER. 

E. MESSAGE CQOl IS THEN PRINTED, SET CONSOLE ENTRY SWITCHES 
TO /FF0O AND PRESS START. 

F. A NEW LISTING OF THE DISK LOCATION DIRECTORY WILL BE 
PROVIDED BY PRESSING START. 

NOTE-IF A DIRECTORY TABLE IS NOT DESIRED AT THIS TIME, 

PRESS THE 1131 STOP, RESET, AND START. THIS WILL ALLOW 
MESSAGE C004 TO BE PRINTED INFORMING THE CE TO SELECT 
OPTIONS. IF A LISTING OF ALL THE PIDS ON DISK IS DESIRED 
REFER TO SECTION 3.2.11 FOR OPERATING PROCEDURES. 



G. 



MESSAGE C004 IS THEN PRINTED INFORMING THE C.E. TO SELECT 
OPTIONS. 



A. SET CONSOLE ENTRY SWITCH 2, CLEAR ALL OTHERS 

B. OBTAIN A COMPLETE SET OF PATCH CARDS FOR THE PROGRAM 
TO WHICH THE CHANGE IS TO BE MADE. 

LIMIT YOUR PATCHES TO A MAXIMUM OF 14 HEX WORDS PER CARD. 
(LEAVE COLUMNS 77-80 OF THE PATCH CARD BLANK) 

C. PLACE THE PATCH CARDS IN THE HOPPER AND MAKE IT READY. 

D. AT THE 1131 CPU PRESS START. 

E. DIMAL MESSAGE C008 IS PRINTED INFORMING THE C.E. TO ENTER 
THE PID OF THE PROGRAM TO BE PATCHED VIA CONSOLE ENTRY 
SWITCHES . ENTER THE PID IN SWITCHES 8 THRU 15. PRESS START. 

F. PATCH CARDS WILL READ IN UNTIL THE CARD READER BECOMES 
EMPTY. 

G. DEPRESS THE READER START BUTTON TO READY IT FOR THE LAST 
CARD. 

H. DEPRESS THE 1131 CPU START BUTTON IF THE INPUT DEVICE IS 
A 2501 CARD READER. THE LAST CARD SHOULD READ IN. THIS 
STEP IS NOT REQUIRED WHEN USING A 1442 CARD READER. 

I. DIMAL MESSAGE D002 IS PRINTED. PRESS START FOR 
A LISTING OF THE PATCH TABLE. 

J. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE C.E. TO SELECT OPTIONS. 

*** VERY IMPORTANT NOTE*** 

IF A PROGRAM THAT HAS BEEN LOADED ON DISK REQUIRES PATCHING, 
THEN ANY NEW PATCH CARDS MUST ACCOMPANY OLD PATCHES. THIS IS 
DUE TO THE FACT THAT AS NEW PATCHES FOR A GIVEN PROGRAM ARE 
LOADED, ALL THE OLD PATCHES FOR THAT PROGRAM ARE DELETED 
IN FAVOR OF THE NEW ONES. REFER TO SECTION 3.2.6 FOR A 
LISTING OF THE PATCH TABLE. 
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5. LIST CONTENTS OF OIMAL LOCATION DIRECTORY (SWITCH 3) 

A. SET CONSOLE ENTRY SWITCH 3, CLEAR ALL OTHERS» AND PRESS 
START. 

B. DIMAL WILL LIST THE LOCATION DIRECTORYt MESSAGE DOOl. 

C. OPERATION COMPLETE IS INCICATED BY MESSAGE C004 INFORMING 
THE C.E. TO SELECT OPTIONS. 

6. LIST CONTENTS OF DIMAL PATCH TABLE (SWITCH 4) 



A. SET CONSOLE ENTRY SWITCH 4, CLEAR ALL OTHERS, AND PRESS 
START. 

B. MESSAGE 0002 IS PRINTED, PATCH CARD TABLE. PRESS START 
FOR A LISTING OF THE PATCH TABLE. 

THE TYPEWRITER WILL LINE FEED ONE LINE FOR EVERY EMPTY 
SECTOR IN THE PATCH CYLINDER. 

C. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE C.E. TO SELECT OPTIONS. 

PUNCH CALL CARDS. (SWITCH 5) 



A. SET CONSOLE ENTRY SWITCH 5, CLEAR ALL OTHERS, AND PRESS 
START. 

B. MESSAGE C005 WILL BE PRINTED. LOAD 1442 WITH BLANK CARDS. 

C. AT THE 1131 CPU, PRESS START. DIMAL SHOULD START PUNCHING 
THE CALL CARD. 

D. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE C.E. TO SELECT OPTIONS. 

E. REMOVE AND SAVE THE PUNCHED CALL CARD. 
8. LIST CALL SEEK COUNT (SWITCH 6) 



A. SET CONSOLE ENTRY SWITCH 6, CLEAR ALL OTHERS, AND PRESS 
START. 

B. MESSAGE D003 WILL BE PRINTED. SAVE THE MESSAGE FOR FUTURE 
USE. 

C. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 
INFORMING THE C.E. TO SELECT OPTIONS. 

9. DELETE PATCH CARDS. (SWITCH 7) 



A. SET CONSOLE ENTRY SWITCH 7, CLEAR ALL OTHERS AND PRESS 
START. 

B. MESSAGE C002 WILL BE PRINTED INFORMING THE C.E. TO ENTER THE 
PID OF THE PROGRAM WHOSE PATCHES ARE TO BE DELETED VIA 
CONSOLE ENTRY SWITCHES. 

C. ENTER THE PID IN SWITCHES 8 THROUGH 15. PRESS START. 



E. THE PROGRAM WILL PRINT MESSAGE C004 INFORMING THE CE TO 
SELECT OPTIONS. 

NOTE- NO NEW LISTING OF THE PATCH TABLE WILL BE GIVEN. REFER 
TO SELECT OPTION SWITCH 4 FOR A LISTING OF THE PATCH 
TABLE. 

10. PUNCH CALL PAPER TAPE. (SWITCH 8) 



A. SET CONSOLE ENTRY SWITCH 8, CLEAR ALL OTHERS. 

B. READY THE 1055 PAPER TAPE PUNCH WITH BLANK TAPE. 

C. PUNCH A TWO INCH LEADER DELETE FIELD. DO NOT PRESS FEED 
BUTTON. 

0. AT THE 1131 CPU, PRESS START. DIMAL WILL PUNCH THE CALL TAPE. 

E. MESSAGE C004 IS PRINTED INFORMING THE C.E TO SELECT OPTIONS. 

F. REMOVE AND SAVE TAPE. 

11. LIST ALL PIDS ON DISK. (SWITCH 9) 



A. SET CONSOLE ENTRY SWITCH 9, CLEAR ALL OTHERS. PRESS START. 

B. MESSAGE D004 -PID TABLE- WILL BE PRINTED. PRESS START 
FOR A LISTING. 

C. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE CE TO SELECT OPTIONS. 

I 3.3 DIAGNOSTIC PROGRAM SELECTION AND EXECUTION (SELECT/EXECUTE SECTION) I 

1. GENERAL OPERATING INSTRUCTIONS 



A. PLACE THE C.E. DISK PACK CONTAINING THE MAINTENANCE 
LIBRARY ON THE DESIRED DISK DRIVE AND MAKE THE DRIVE READY. 

B. OBTAIN THE CALL CARD OR PAPER TAPE PROVIDED BY 

DIMAL DURING INITIAL DISK LIBRARY GENERATION. IF ENTRY SWITCH 
CALL IS DESIRED, REFER TO APPENDIX 6.1. 

C. MAKE THE INPUT DEVICE READY WITH THE CALL CARD OR TAPE. 

D. SET CONSOLE ENTRY SWITCHES TO /XX02 (WHERE XX IS THE DISK 
DRIVE AREA CODE) TO CALL IN THE SELECT/EXECUTE SECTION. 



I DISK DRIVE 


I 


AREA CODE I 








I CPU 




/2002 I 


I 1 




/8802 I 


I 2 




/9002 I 


I 3 




/9802 I 


I 4 




/A002 I 
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I I. 



RANDOM - OVERLAP £ NON-OVERLAP. 



MESSAGE C009 (SELECT PID OOXX) IS PRINTED UPON SUCCESS- 
FUL LOADING OF THE SELECT/EXECUTE SECTION. 

IF IT IS DESIRED TO RUN ONE PROGRAM PROCEED TO NEXT 
STEP, ELSE SKIP TO STEP D. 

SET /FFXX (WHERE XX IS THE PID OF THE PROGRAM) IN 
CONSOLE ENTRY SWITCHES 8 THROUGH 15 AND PRESS START. 
THE PURPOSE OF INCLUDING FF WITH THE PID IS TO INFORM 
MONITOR THAT THIS IS THE ONLY PROGRAM SELECTED. 



E. IPL THE CALL CARD OR PAPER TAPE. 

F. THE CALL WILL FIRST LOAD THE DIMAL HEADER TESTS. 

IF THE HEADER TESTS RUN SUCCESFULLY (RUN TIME APPROXIMATELY 
1 SEC) THE COLD START LOADER WILL BE BROUGHT INTO CORE AND 
IT IN TURN WILL LOAD THE DIMAL SELECT/EXECUTE SECTION. 

IF AN ERROR WAIT OCCURS, REFER TO SECTION 6.2 FOR ERROR 
PROCEDURE. 

G. SUCCESSFUL LOADING OF THE SELECT/EXECUTE SECTION IS INDICATED 
BY MESSAGE C009. 

REFER TO SECTIONS 3.3.2 DIAGNOSTIC MONITOR II PROGRAMS SELEC- 
TION OR 3.3.3 NON MONITOR PROGRAMS SELECTION FOR THE 
REMAINDER OF THE OPERATING PROCEDURES. 



*** VERY IMPORTANT NOTE »** 

IF SWITCH 15 IS LEFT ON DUE TO ANY DIMAL SWITCH SETTING 
THE DIAGNOSTIC MONITOR WILL HALT ALL PROGRAM EXECUTION. 
TO RESTART ALL PROGRAMS, SET CONSOLE ENTRY SWITCHES TO 
/0080 AND PRESS INTERUPT REQUEST KEY. 



C. UPON COMPLETION OF THE SELECTED PROGRAM RUN, THE 
DIAGNOSTIC MONITOR WILL RETURN TO DIMAL. DIMAL IN 
TURN PRINTS MESSAGE C009. THE NEXT PROGRAM MAY BE 
SELECTED. SEE STEP A ABOVE. 

D. IF IT IS DESIRED TO RUN SEVERAL PROGRAMS, THEN ENTER 
/OOXX - XX IS THE PID - IN CONSOLE SWITCHES 8 THROUGH 15 
AND PRESS THE START BUTTON. 

E. MESSAGE COlO WILL BE PRINTED ASKING THE CE TO SET SW 
ON FOR SE(3UENTIAL PIOS. THIS IS RANDOM MODE, THEREFORE, 
SET SW OFF AND PRESS START. 

F. THE DIAGNOSTIC MONITOR WILL LOG THE PROGRAM AND RETURN 
TO DIMAL. DIMAL IN TURN WILL PRINT MESSAGE C009 ASKING 
FOR THE NEXT PID. 

G. ENTER THE NEXT PID AS EXPLAINED IN STEP D. WHEN ITS 
TIME TO SELECT THE LAST PROGRAM, ENTER /FFXX IN SWS 
THROUGH 15, ALSO /OOFF ENTERED AS LAST PID TELLS 
DIMAL THAT ALL PROGRAMS HAVE BEEN LOADED. 

H. THE DIAGNOSTIC MONITOR WILL LOG ALL THE PROGRAMS 

SELECTED AND WILL AUTOMATICALLY RUN THEM IN OVERLAP MODE 
IF CORE IS AVAILABLE. REFER TO DIAGNOSTIC MONITOR 
DOCUMENTATION FOR AVAILABLE OPTIONS. 

I. UPON COMPLETION OF OVERLAP OPERATION, THE DIAGNOSTIC 
MONITOR HILL NOT RETURN TO DIMAL. TO RETURN TO DIMAL, 
USE MONITOR SWITCH SETTING /8080. 



NOTE TO CE. 



-DEFINITIONS 



RANDOM PIDS ARE EXECUTED IN THE ORDER SELECTED. 

WARNING 
2250 DISPLAY PROGRAMS SHOULD 
NOT BE SELECTED TO RUN UNDER 
RANDOM MODE CONTROL. 



SEQUENTIAL PIDS ARE EXECUTED FROM THE LOWEST 

SELECTED PID THROUGH THE HIGHEST 
SELECTED PID. 



2. DIAGNOSTIC MONITOR II PROGRAMS SELECTIONS. 



THERE ARE TWO CATEGORIES OF PROGRAM SELECTIONS - 

I. RANDOM - OVERLAP £ NON-OVERLAP. 

II. SEQUENTIAL - OVERLAP E NON OVERLAP. 

REFER TO THE CATEGORY OF INTEREST FOR OPERATING INSTRUCTIONS. 
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II. SEQUENTIAL- OVERLAP t NON OVERLAP. 



A. MESSAGE C009 -SELECT PID (OOXX)- IS PRINTED UPON 
SUCCESSFUL LOADING OF THE SELECT/EXECUTE SECTION. 

B. SET THE PID OF THE DESIRED PROGRAM IN CONSOLE SWITCHES 8 
THROUGH 15. PRESS THE START BUTTON. 

C. MESSAGE COlO HILL BE PRINTED ASKING THE CE TO SET 
SW ON FOR SEQUENTIAL PROCESSING OF PIDS. 

D. SET SW ON AND PRESS START. 

E. MESSAGE COll WILL BE PRINTED REQUESTING LAST PID IN 
SEQUENCE. 

F. ENTER THE LAST PID IN SWITCHES 8 THROUGH 15. PRESS 
START. (OVERLAP OR NONOVERLAP) 

G. MESSAGE C012 WILL BE PRINTED ASKING FOR MODE OF 
OPERATION. 

H. SET SW 15 OFF FOR NON OVERLAP AND ON FOR OVERLAP 
THEN PRESS START 



*** VERY IMPORTANT NOTE *** 

IF SWITCH 15 IS LEFT ON DUE TO ANY DIMAL SWITCH SETTING 
THE DIAGNOSTIC MONITOR WILL HALT ALL PROGRAM EXECUTION. 
TO RESTART ALL PROGRAMS. SET CONSOLE ENTRY SWITCHES TO 
/0080 AND PRESS INTERUPT REQUEST KEY. 



THE DIAGNOSTIC MONITOR WILL LOG EACH PROGRAM LOADED INTO 
CORE AND EXECUTE IT. HOWEVER IF SWITCH 15 WAS SET TO ON 
IN STEP H THEN ALL PROGRAMS WILL BE LOADED INTO CORE 
BEFORE EXECUTION OF ANY PROGRAM STARTS. 

WHENEVER MORE THAN ONE PROGRAM AT A TIME IS IN CORE 
MONITOR WILL AUTOMATICALLY RUN THEM IN OVERLAP MODE. 

REFER TO DIAGNOSTIC MONITOR DOCUMENTATION FOR AVAILABLE 
OPTIONS AND OPERATING PROCEDURES. 

UPON COMPLETION OF NON OVERLAP RUNS DIMAL WILL PRINT 
MESSAGE C009. THE NEXT PROGRAM MAY NOW BE SELECTED. 
UPON COMPLETION OF OVERLAP RUNS, DIMAL CONTROL IS LOST. 
TO REGAIN CONTROL, SET THE I-REG TO /0078 AND PRESS 
START. MESSAGE C009 WILL PRINT AND THE NEXT PROGRAM(S) 
MAY NOW BE SELECTED. 



I 3. NON MONITOR PROGRAMS SELECTION I 



THERE ARE TWO CATEGORIES OF PROGRAM SELECTIONS- 



I. RANDOM. 

II. SEQUENTIAL. 



REFER TO THE CATEGORY OF INTEREST FOR OPERATING INSTRUCTIONS. 



RANDOM 



A. MESSAGE C009 SELECT PID (OOXX) IS PRINTED UPON SUCCESSFUL 
LOADING OF THE DIMAL SELECT/EXECUTE SECTION. 

B. SET THE PID OF THE DESIRED PROGRAM IN CONSOLE SWITCHES 8 
THROUGH 15 AND PRESS START. 

C. MESSAGE COlO WILL BE PRINTED INFORMING THE CE. TO SET 
SWITCH ON FOR SEQUENTIAL PIDS. THIS IS RANDOM MODE, 
THEREFORE, SET SW OFF AND PRESS START. CONTROL IS NOW 
TRANSFERED TO THE SELECTED PROGRAM. 

D UPON COMPLETION OF THE SELECTED TEST, DIMAL 

WILL PRINT MESSAGE C009 TO SELECT PID. ANOTHER PROGRAM 
MAY BE SELECTED NOW. 

NOTE- IF THE PROGRAM SELECTED IS NOT DIMAL COMPATIBLE— MEANING 
IT DOES NOT PROVIDE A BRANCH TO LOCATION /0078 IN DIMAL- 
CONTROL WILL BE LOST AND MESSAGE C009 WILL NOT BE PRINTED. 
TO REGAIN CONTROL, SET THE 1-REG TO /0078 AND PRESS START. 
IF THIS PROCEDURE FAILS, RECALL DIMAL WITH THE CALL CARD 
OR PAPER TAPE. 



I II. SEQUENTIAL. I 

A. MESSAGE C009 SELECT PID (OOXX) IS PRINTED UPON SUCCESSFUL 
LOADING OF THE DIMAL SELECT/EXECUTE SECTION. 

B. SET THE PID OF THE DESIRED PROGRAM IN CONSOLE SWITCHES 8 
THROUGH 15 AND PRESS START. 

C MESSAGE COlO WILL BE PRINTED INFORMING THE CE. TO SET 
SWITCH ON IF SEQUENTIAL PIDS ARE TO BE PROCESSED 

D. SET SW TO THE ON POSITION AND PRESS START. 

E. MESSAGE COll IS PRINTED REQUESTING THE LAST PID IN SEQUENCE, 

F. ENTER LAST PID OF SEQUENCE IN SWITCHES 8 THROUGH 15. 
PRESS START. 
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G. THE PROGRAMS WILL NOW BE EXECUTED ONE AT A TIME PROVIDED 
THAT EACH PROGRAM RETURNS TO LOCATION /0078 (DIMAL 
COMPATIBLE) AT THE END OF EXECUTION. 

NOTE- IF THE PROGRAM SELECTED IS NOT DIMAL COMPATIBLE — MEANING 
IT DOES NOT PROVIDE A BRANCH TO LOCATION /0078 IN DIMAL- 
CONTROL WILL BE LOST AND MESSAGE C009 WILL NOT BE PRINTED. 
TO REGAIN CONTROL, SET THE I-REG TO /0078 AND PRESS START, 
IF THIS PROCEDURE FAILS, RECALL DIMAL WITH THE CALL CARD 
OR PAPER TAPE. 

H. UPON COMPLETION OF ALL THE PROGRAMS IN THE 

SEQUENCE, DIMAL WILL PRINT MESSAGE C009 TO SELECT PID. 
A NEW PID MAY NOW BE SELECTED. 



5. 



30E3 THIS WAIT INDICATES THAT RELOAD THE PROGRAM. 

THE CYLINDER ON 
WHICH THE ATTEMPTED 
WRITE WAS BEING MADE 
WILL BE BYPASSED. 
FAILURE WAITS IN THE SELECT/EXECUTE SECTION. 
EXPLANATION OF WAITS AND CORRECTIVE ACTIONS 
ARE GIVEN BELOW. 



THIS WAIT INDICATES THAT 
A DSW ERROR EXISTED ON 
EACH OF 3 ATTEMPTS TO 
WRITE ON THE DISK. 



3.4 



PROGRAM WAITS 



I 



PROGRAM WAITS IN DIMAL ARE IDENTIFIED BY REFERENCING THE B REG- 
THE WAITS MAY BE DIVIDED INTO FIVE GROUPS- 

1. NORMAL WAIT AFTER TYPED MESSAGES ( B-REG=/3000) . 

2. CARD READER FAILURE WAIT B-REG=/30F5. 

2.1 REMOVE CARDS FROM HOPPER. 

2.2 NPRO CARD FROM FEED PATH. 

2.3 PLACE LAST TWO CARDS IN STACKER IN FRONT OF 
HOPPER CARDS AND READY INPUT DEVICE. 

3. FAILURE WAITS IN HEADER TEST OR COLD START LOADER. 

REFER TO APPENDIX SECTION 6.2 FOR EXPLANATION OF 
WAITS. 

4. FAILURE WAITS IN THE LOADER/ORGANIZER SECTION. 

EXPLANATION OF WAITS AND CORRECTIVE ACTIONS 
ARE GIVEN BELOW. 



WAIT EXPLANATION 

30E4 THIS WAIT INDICATES THAT 
A DSW ERROR EXISTED ON 
EACH OF 3 ATTEMPTS TO 
WRITE ON THE DISK. 



30E5 THIS WAIT INDICATES THAT 
A DSW ERROR EXISTED ON 
EACH OF 3 ATTEMPTS TO 
READ DISK. 



ACTION 

RELOAD THE PROGRAM. 
THE CYLINDER ON 
WHICH THE ATTEMPTED 
WRITE WAS BEING M6DE 
WILL BE BYPASSED. 

IF IT IS DESIRED TO 
EXECUTE THOSE PROG- 
AMS LOADED, PRESS 
START. IF THAT FAILS 
RECALL THE SELECT/ 
EXECUTE. 



3.5 



RESTART PROCEDURE 



WAIT EXPLANATION 

30A1 THIS WAIT INDICATES THAT 
THERE ARE NO MORE AVAIL- 
ABLE CYLINDERS ON WHICH 
TO STORE THE DIAGNOSTIC 
FUNCTION TESTS. 



30A2 THIS WAIT INDICATES THAT 
PATCHES EXCEEDED ONE 
CYLINDER IN LENGTH 
(2560 WORDS). 



30E1 THIS WAIT INDICATES THAT 
A DSW ERROR EXISTED ON 
EACH OF 3 ATTEMPTS TO 
READ THE SECTOR ID. 



ACTION 

IF THERE HAS BEEN A 
LARGE AMOUNT OF 
DELETE PROGRAM 
ACTIVITY ON THE 
DIMAL PACK, RELOAD- 
ING ALL DFT'S WILL 
BE NECESSARY TO MAKE 
MORE CYLINDERS 
AVAILABLE. 

SOME PATCHES MUST BE 
DELETED OR NO MORE 
PATCHED PROGRAMS ARE 
ALLOWED TO BE ADDED 
TO THE PACK. REFER 
TO SECTION 3.2.9 FOR 
DELETE PATCH 
PROCEDURE. 

RELOAD THE PROGRAM. 
THE CYLINDER ON 
WHICH THE ATTEMPTED 
READ WAS BEING MADE 
WILL BE BYPASSED. 



1. DIMAL INITIAL LOADER SECTION 



THERE IS NO RESTART PROCEDURE DURING THE IPL OPERATION. RESTART 
IS AVAILABLE ONCE THE INITIAL LOADER IS IN CORE. 

2. DIMAL COLD START LOADER SECTION 



DEPRESS STOP, RESET AND START. THE COLD START LOADER WILL 
ATTEMPT A RELOAD OF THE SPECIFIED DIMAL SECTION. 
3. DIMAL LOADER/ORGANIZER SECTION 



A. INITIAL DISK PACK GENERATION. 

THERE IS NO RESTART PROCEDURE DURING THIS PHASE. 

-SUGGESTION- 
LOAD ONLY ONE PROGRAM ON DISK DURING THIS PHASE. 
OTHER PROGRAMS MAY BE ADDED USING THE 'ADD A PROGRAM' 
OPTION. REFER TO SECTION 3.2.2. 

B. DISK PACK MODIFICATION 

PRESS STOP, RESET AND START. MESSAGE C004 SHOULD BE 
PRINTED. OPTIONS MAY NOW BE SELECTED. 
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4. DIMAL SELECT/EXECUTE SECTION 



4.2 



COMMAND MESSAGES 



A. IF MONITOR IS IN CORE RESTART BY SETTING ENTRY SWITCHES TO 
/8G80 AND PRESSING INTERUPT KEY. 

B. IF SELECT/EXECUTE IS IN CORE PRESS STOPt RESET, AND START. 
5. DIMAL HEADER SECTION 



TO RESTART THE HEADER FROM TEST 1, RE-ENTER THE CALL 
CARD. REFER TO SECTION 3.2.1 OR 3.3.1. 

*** VERY IMPORTANT NOTE *** 

IF THE RESTART PROCEDURES FAIL TO PROVIDE THE DESCRIBED 
RESULTS RECALLING DIMAL WILL BE NECESSARY. REFER TO AREA 
OF INTEREST IN THE DOCUMENTATION. 



4.0 PRINTOUTS 



4.1 



STATUS MESSAGES 



LOADER/ORGANIZER 



A003 DISK NOT READY 



THIS PRINTOUT INDICATES THAT THE DISK DRIVE IS NOT READY. WAIT UNTIL 
'FILE READY* LIGHT COMES ON. 



I SELECT/EXECUTE 



A004 DISK NOT READY 



THIS MESSAGE INDICATES THAT THE DISK DRIVE IS NOT READY. WAIT 
UNTIL "FILE READY' LIGHT COMES ON. 



AQ05 PROGRAM XX NOT ON DISK 



THIS MESSAGE INFORMS THE C.E. THAT THE PROGRAM SELECTED WAS NOT 
FOUND ON DISK. THE SAME MESSAGE IS PRINTED FOR EACH PID NOT 
FOUND ON DISK DURING THE SELECTION OF SEQUENTIAL PIDS. 



A006 PROGRAM EXCEEDS CORE LIMIT 



THIS PRINTOUT INDICATES THAT THE DFT SELECTED EXCEEDS THE MAXIMUM 

ALLOWABLE LIMIT. ANOTHER PROGRAM MUST BE SELECTED. 

ALL PREVIOUSLY SELECTED PROGRAMS SHOULD BE AVAILABLE FOR EXECUTION. 



LOADER/ORGANIZER 



COGl SET SWS TO /FFOO IF DONE 

THIS MESSAGE IS PRINTED BY THE LOADER/ORGANIZER SECTION WHEN THE LAST 
CARD SEQUENCE HAS BEEN PERFORMED ON INITIAL DISK PACK GENERATION OR 
WHEN USING THE ADD PROGRAM FEATURE. 

IF ALL DESIRED PROGRAMS HAVE BEEN LOADED ON DISK, SET CONSOLE 
SWITCHES TO FFOO AND PRESS START. 

IF MORE PROGRAMS ARE TO BE LOADED, READY THE INPUT DEVICE WITH 
DFT PROGRAMS AND PRESS START. 

C002 ENTER PID (OOXX) TO DELETE IN SWS. 

THIS PRINTOUT OCCURS AS A RESULT OF SELECTING THE DELETE PROGRAM 
OPTION. ENTER THE PID OF THE PROGRAM TO DELETE IN SWITCHES 8 
THROUGH 15. THE PROGRAM PID WILL BE DELETED. A NEW LOCATION 
DIRECTORY IS AN AUTOMATIC FUNCTION OF THE DELETE PROGRAM OPTION. 

THIS MESSAGE ALSO OCCURS WHEN SELECTING THE 'DELETE PATCH CARD' 
OPTION. 

C004 SELECT OPTIONS 

THIS MESSAGE INDICATES THAT THE DIMAL LOADER/ORGANIZER 

IS READY TO BE USED. SELECT THE OPTION DESIRED (REFER TO SECTION 

3.2 FOR OPERATING INSTRUCTIONS) AND PRESS START. 

C005 RDY 1442 WITH BLANK CARDS 

THIS MESSAGE OCCURS DURING THE PUNCH CALL CARD OPTION. 

READY THE 1442 CRP WITH BLANK CARDS AND PRESS START. THE CARD 

PUNCHED IS THE CALL CARD. SAVE THIS CARD. 

C006 ENTER INPUT DEVICE 1442,2501,1134. 

THIS MESSAGE IS PRINTED DURING THE INITIAL PACK GENERATION 
AND IN THE LOADER/ORGANIZER PHASE OF DIMAL. ENTER IN THE 
CONSOLE SWITCHES THE ACTUAL NUMBER IN HEX OF THE DEVICE. 

COOT READY THE INPUT DEVICE. 

THIS MESSAGE IS PRINTED IN THE LOADER ORGANIZER SECTION WHEN 
EVER THE INPUT DEVICE GOES NOT READY. 

COOS ENTER PID OF PROGRAM TO BE PATCHED VIA SWS. 

THIS MESSAGE IS PRINTED DURING SELECT OPTION 2 IN THE LOADER/ 
ORGANIZER PHASE. REFER TO SECTION 3.2.4. 



I INITIAL LOADER I 



A007 DISK NOT READY 



THIS MESSAGE INDICATES THAT THE DISK DRIVE IS NOT READY. WAIT 
UNTIL 'FILE READY' LIGHT COMES ON. 
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SELECT/EXECUTE 



4.3 



DATA MESSAGES 



C009 SELECT PROGRAM PID (OOXX) 



LOADER/ORGANIZER 



THIS PRINTOUT INFORMS THE C.E. TO ENTER THE PID OF THE PROGRAM TO BE 
EXECUTED VIA CONSOLE ENTRY SWITCHES 8 THROUGH 15. 

COOA YOU HAVE SELECTED PID XX 

THIS MESSAGE FOLLOMS MESSAGES C009 AND COll. IT MERELY TELLS 
THE CE OF HIS PID SELECTION . 

COlO SET SW ON FOR SEO PIOS. 

THIS MESSAGE REQUESTS SETTING SW ON FOR PROCESSING SEQUENTIAL PIDS. 

con ENTER LAST PID OF SEQ. 

THIS MESSAGE FOLLOWS MESSAGE COlO REQUESTING THE LAST PID IN THE 
SEQUENCE TO BE PROCESSED. ENTER IN SWS 8 THROUGH 15. 

C0I2 SET SW 15 ON FOR OVERLAP. 

THIS PRINTOUT OCCURS AFTER MESSAGE COll INFORMING THE C.E. TO 
SET SW 15 ON IF HE DESIRES OVERLAP OPERATION. 



DOOl LOCATION DIRECTORY 



PID 


CYL 


SECT 


TSEC 




02 


XXX 





07 


(1) 


02 


XXX 


7 


01 


(2) 


62 


XXX 





10 


(3) 




XXX 







(4) 


02 


XXX 





06 


(5) 


XX 


XXX 


X 


XX 


(6) 




XXX 







(7) 



INITIAL LOADER 



C013 READY INPUT DEVICE. 



THIS MESSAGE REQUESTS THAT THE INPUT DEVICE BE MADE READY. 
PLACE THE OIMAL DECK IN THE HOPPER AND PRESS THE READER 
START BUTTON. 



MESSAGE DOOl IS THE LISTING OF THE LOCATION DIRECTORY 

PID = THE PROGRAM ID 

CYL = THE FIRST CYLINDER(IN DECIMAL) ON WHICH THE PROGRAM IS STORED. 

SECT = THE FIRST SECTOR ON THE DEIGNATED CYLINDER USED BY THE PROGRAM 

TSEC = TOTAL NUMBER OF SECTORS (IN DECIMAL) REQUIRED TO STORE THE 

PROGRAM. 

LINES 1,2,3,4, AND5 ( LINE NUMBERS ARE NOT PRINTED ) DEFINE THE LOCA- 
TION OF THE DIMAL SYSTEM ON THE DISK 
LINE 1 IS THE HEADER TEST LOCATION 
LINE 2 IS THE COLD START LOADER LOCATION 
LINES 3+4 ARE THE LOADER/ORGANIZER SECTION LOCATION. 
LINE 5 IS THE SELECT/EXECUTE SECTION LOCATION. 

LINE 6 WILL DEFINE THE LOCATION OF THE FIRST DFT LOADED. 

LINE 7 WILL BE PRINTED WHEN MORE THAN ONE CYLINDER IS REQUIRED TO 
STORE THE PROGRAM. SECTOR WILL ALWAYS BE THE FIRST SECTOR USED. 



C014 ENTER CE CYLINDER NUMBER. 



ALL DFT'S WILL BE LISTED IN THE FORMAT OF LINES 6 AND 7. 
PRINTOUT FDR REFERENCE. 



SAVE THE 



THIS PRINTOUT OCCURS DURING INITIAL PACK GENERATION. ENTER 
IN CONSOLE ENTRY SWITCHES /00C7 AND PRESS START. 

IMPORTANT NOTE- IF THE CE HISTORY TRACK WAS FOUND TO BE BAD 

DURING THE RUNNING OF THE DISK INITIALIZATION TEST 
(PID 0308), THEN THE HISTORY TRACK MUST BE 
ASSIGNED BY THE CE AND ENTERED IN THE SWITCHES 
AS EXPLAINED ABOVE. 



C015 AREA CODE (XXOO). 



THIS MESSAGE IS PRINTED DURING INITIAL PACK GENERATION ONLY. 
ENTER IN THE CONSOLE SWITCHES THE AREA CODE OF THE DISK DRIVE. 
PRESS START. 



D002 PATCH CARD TABLE 

ALL THE PATCHES CONTAINED ON THE DISK PACK ARE LISTED. THE FORMAT 
FOR THE PRINTOUT IS THE HEXIDECIMAL CONTENT OF EACH PATCH CARD READ. 
SAVE PRINTOUT FOR REFERENCE. A SAMPLE PRINTOUT IS GIVEN BELOW 

A20C 4000 013B 0001 0000 0000 0000 0000 0000 0000 0000 0000 

WHERE A2 IS THE PID, OC IS THE NUMBER OF ITEMS ON EACH CARD 
PLUS TWO WORDS- THE TWO WORDS ARE THE PID AND RELOCATION FACTOR- 
4000 IS THE RELOCATION WORD, 013B IS THE ADDRESS WHERE THE 
DATA WILL GO. THE REST OF THE CARD IS DATA. 

D003 DATA SW CALL SEEK COUNT IS XX 

MESSAGE D003 INFORMS THE OPERATOR OF THE SEEK COUNT REQUIRED IN THE 
BIT SWITCH CALL ROUTINE. THIS NUMBER IS IN HEXIDECIMAL AND 
SHOULD BE INSERTED AS /OOXX. 

D004 PID TABLE. 

MESSAGE D004 IS THE LISTING OF ALL THE PROGRAMS ON DISK. EACH 

PID IS GIVEN AS A TWO DIGIT NUMBER. THE FIRST FOUR PIDS (02 02 02 02) 

ARE THE DIMAL SECTIONS AND WILL ALWAYS APPEAR BEFORE THE OTHER PIDS. 
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4.4 



ERROR MESSAGES 



SELECT/EXECUTE 



LOADER/ORGANIZER 



E002 DISK SEEK ERROR, PRESS START 

THIS MESSAGE INDICATES THAT A SEEK ERROR HAS OCCURED, PRESS START 
TO TRY AGAIN. IF ERROR PERSISTS SEVERAL TIMESr REINITIALIZE DISK 
AND RELOAD DIMAL. 

E004 PATCH CARD ERROR 

THIS MESSAGE INDICATES THAT A CARD WITH A PUNCH OTHER THAN A "la" 
PUNCH IN COLUMN 1 OF THE PATCH CARD OR A BLANK CARD HAS BEEN 
DETECTED. CHECK THE PATCH CARDS AND REENTER AFTER CORRECTIONS. 

E005 CHECKSUM ERROR 

THIS MESSAGE INDICATES THAT A CHECKSUM ERROR HAS BEEN DETECTED DURING 
CARD READ OPERATIONS. 

REMOVE THE CARDS FROM THE HOPPER. NPRO THE CARDS FROM THE FEED 
PATH. THE LAST TWO CARDS IN THE STACKER ARE TO BE CORRECTED AND 
PLACED IN FRONT OF THE CARDS FROM THE HOPPER. RELOAD CARDS £ READY 
INPUT DEVICE. THE FIRST CARD ENTERING THE STACKER IS THE CARD WHICH 
CAUSED THE CHECKSUM ERROR. CHECKSUM IS CAUSED BY CARDS OUT OF 
SEQUENCE OR BY FAULTY PUNCHES (TORN. LACED, ETC.). CORRECT THE DECK 
AND PLACE IN THE HOPPER. DO NOT RELOAD THOSE CARDS WHICH HAVE 
BEEN ACCEPTED. READY THE CARD READER AND PRESS THE 1131 CPU START. 

INCASE OF CONSECUTIVE CHECKSUM ERRORS, THE FOLLOWING PROCEDURE 
IS RECOMMENDED. REMOVE THE DECK CAUSING THE CONTINUOUS CHECKSUM 
ERROR. AT THE 1131 CPU, SET CONSOLE SWITCH 8 AND PRESS START. 
MESSAGE C007 WILL BE PRINTED. LOAD CARDS IN READER AND MAKE IT 
READY. THIS EXACT PROCEDURE MUST BE FOLLOWED TO CONTINUE LOADING. 

THE DECK CAUSING THE CHECKSUM ERROR MAY BE ADDED LATER AFTER IT 
HAS BEEN CORRECTED. REFER TO SECTION 3.2.2. 



E009 PIDS ARE INVERTED. 

THIS MESSAGE INDICATES THAT THE LAST PID IN THE SEQUENCE IS LESS 
THAN THE FIRST PID ENTERED. AT THE 1131 CPU PRESS THE START BUTTON. 
MESSAGE C009 IS PRINTED ASKING THE CE TO SELECT PID. REENTER THE 
PID CORRECTLY. 

EOOA DISK SEEK ERROR. PRESS START. 

THIS MESSAGE INDICATES THAT A SEEK ERROR HAS OCCURRED. PRESS START 
TO TRY AGAIN. IF ERROR PERSISTS SEVERAL TIMES, REINITIALIZE THE 
DISK AND RELOAD DIMAL. 

EOOB PIDS ARE INCOMPATIBLE 

THIS PRINTOUT OCCURS IF THE LAST PID SELECTED DURING THE SELECTION 
OF SEQUENTIAL PIDS IS A DIFFERENT TYPE THAN THE FIRST PID ENTERED. 
ALL MONITOR CONTROLLED PROGRAMS HAVE PIDS LESS THAN 9F. ALL NON- 
MONITOR PROGRAMS HAVE PIDS GREATER THAN /9F. PRESS THE START BUTTON 
ON THE 1131 CPU. MESSAGE C009 IS PRINTED (SELECT PID OOXX). 
REENTER THE PIDS CORRECTLY. 

EXAMPLE OF THE ABOVE ERROR- 
FIRST PID ENTERED (0031), LAST PID ENTERED (OOAl). 



INITIAL LOADER 



EOOC DISK SEEK ERROR, PRESS START 

THIS MESSAGE INDICATES THAT A SEEK ERROR HAS OCCURED, PRESS START 
TO TRY AGAIN. IF ERROR PERSISTS SEVERAL TIMES, REINITIALIZE DISK 
AND RELOAD DIMAL. 

FOOD DISK WRITE ERROR. 

THIS MESSAGE INDICATES THAT A DSW ERROR EXISTED ON EACH OF 3 
ATTEMPTS TO WRITE ON THE DISK. THE PROGRAM BEING 

LOADED AT THE TIME THE ERROR OCCURRED MUST BE RELOADED. THE CYLINDER 
ON WHICH THE ATTEMPTED WRITE WAS BEING MADE WILL BE BYPASSED. 

EOOE DISK READ ERROR. 

THIS MESSAGE INDICATES THAT A DSW ERROR EXISTED ON EACH OF 3 ATTEMPTS 

TO READ THE SECTOR ID. THE PROGRAM WHICH WAS BEING LOADED AT THE 

TIME OF THE ERROR MUST BE RELOADED. THE CYLINDER ON WHICH THE 
ATTEMPTED READ WAS BEING MADE WILL BE BYPASSED. 

EOOF WRONG LOADER 

THIS MESSAGE INDICATES THAT A WRONG LOADER IS BEING USED ON 
INPUT DEVICE. CHECK THE LOADER AND RELOAD DIMAL. 
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E016 END CARD OUT OF ORDER. 



5. COMMENTS 



THIS PRINTOUT INFORMS THE CE THAT THE DIMAL DECK HAS SOME 

CARDS OUT OF SEQUENCE. CHECK DIMAL FOR MISSING CARDS. (ESPECIALLY 

END CARDS, OR FOR OUT OF SEQUENCE CARDS) RELOAD. 

E017 CE WORD NOT FOUND ON DISK. 

THIS MESSAGE OCCURS IF THE CE WORD (/CEDC) WAS NOT FOUND ON 
THE CE HISTORY TRACK. PRESS THE 1131 CPU START BUTTON TO 
SEARCH FOR IT AGAIN. IF THE RETRY FAILS. THE DISK PACK MUST 
BE REINITIALIZED AGAIN (PID 0308). 

E018 DISK HAS MORE THAN 3 BAD CYLINDERS. 

THIS MESSAGE INDICATES THAT THERE ARE MORE THAN 3 BAD CYLINDERS 
ON THE PACK. IT IS RECOMMENDED THAT THE PACK BE REPLACED WITH 
A NEW PACK. PROCEEDING MAY CAUSE OTHER PROBLEMS. 

E019 CHECKSUM ERROR. 

THIS MESSAGE INDICATES THAT A CHECKSUM ERROR HAS BEEN 
DETECTED DURING CARD READ OPERATIONS. 

AT THE CARD READER, REMOVE THE CARDS FROM THE HOPPER. DEPRESS THE 
NPRO BUTTON. THE FIRST CARD ENTERING THE STACKER IS THE CARD WHICH 
CAUSED THE CHECKSUM ERROR. CHECK IF THAT CARD WAS IN CORRECT SEQUENCE 
(IMPROPER SEQUENCE WILL CAUSE CHECKSUM ERRORS). IF CARDS WERE OUT OF 
SEQUENCE, CORRECT AND PLACE IN THE READ HOPPER. DO NOT RELOAD THOSE 
CARDS WHICH HAVE BEEN ACCEPTED. READY THE READER AND PRESS CPU 
START BUTTON. 



THE DIMAL SYSTEM IS DIVIDED INTO 5 MAJOR SECTIONS 

1. DIMAL INITIAL LOADER 

2. DIMAL HEADER SECTION 

3. DIMAL COLD START LOADER 

4. DIMAL LOADER/ORGANIZER SECTION 

5. DIMAL SELECT/EXECUTE SECTION 

5.1 INITIAL LOADER 

THE INITIAL LOADER FUNCTION IS TO INPUT THE DIMAL OBJECT DECK, WRITE 
IT ON THE DISK AND THEN CALL IN THE COLD START LOADER WHICH IN 
TURN INPUTS THE LOADER/ORGANIZER SECTION. THE LOADER/ORGANIZER 
SECTION IS THEN USED TO INPUT THE DFT'S FOR INCLUSION 
ON THE DISK PACK. 

THE INITIAL LOADER WILL MAKE A CHECK TO INSURE THAT THE CE. PACK 
HAS BEEN PLACED ON THE SPECIFIED DRIVE. THIS IS DONE BY READING 
SECTOR 3 OF THE HISTORY TRACK AND CHECKING WORD 2 FOR /CEDC. 
THE LOADER WILL THEN DEFINE THE FIRST EIGHT USABLE CYLINDERS, START- 
ING AT CYLINDER 6, AS THE DIMAL CYLINDERS. THESE CYLINDERS ARE 
USED AS FOLLOWS- 

HEADER TEST AND COLD START LOADER. 

LOADER/ORGANIZER 

LOADER/ORGANIZER 

SELECT/EXECUTE SECTION 

WORK CYLINDER 1 

WORK CYLINDER 2 

LOCATION DIRECTORY 

PATCH CARDS 

THE ADDRESSES FOR THESE CYLINDERS WILL BE PLACED IN A USE TABLE. THE 
USE TABLE WILL BE INCLUDED IN THE COLD START LOADER, LOADER/ORGANIZER 
SECTION AND THE SELECT/EXECUTE SECTION PRIOR TO WRITING THESE 
SECTIONS ON THE DISK. 

THE DIMAL DECK IS THEN READ IN AND STORED ON THE DISK AT THE ASSIGNED 
CYLINDERS. UPON COMPLETION OF THE LOADER OPERATION THE INITIAL LOADER 
WILL WRITE THE WORD /ABCD ON SECTOR OF THE HISTORY TRACK TO 
DEFINE THE DISK PACK AS CONTAINING DIMAL. THE LOADER THEN CALLS INTO 
CORE, THE COLO START LOADER AND SETS UP THE NECESSARY CONTROL TO 
BRING IN THE LOADER/ORGANIZER SECTION. THE INITIAL LOADER THEN 
BRANCHES TO THE COLD START LOADER WHICH INPUTS THE LOADER/ORGANIZER 
SECTION AND GIVES CONTROL TO IT. 



1ST 


CYLINDER 


2ND 


CYLINDER 


3RD 


CYLINDER 


4RD 


CYLINDER 


5TH 


CYLINDER 


6TH 


CYLINDER 


7TH 


CYLINDER 


8TH 


CYLINDER 
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5.2 



5.3 



01 HAL HEADER SECTIONS 



THE PURPOSE OF THE HEADER SECTIONS IS TO TEST MOST OF THE 1130 
INSTRUCTION SET. EACH TEST OCCUPIES ONE SECTOR OF THE FIRST 
DIMAL CYLINDER. 

THE FOLLOWING INSTRUCTIONS ARE NOT CHECKED BY THE HEADER SECTION. 



DOUBLE ADD (AD) 
DOUBLE SUBSTRACT (SD) 



MULTIPLY (M) 
DIVIDE (D) 
EXECUTE I/O (XIO) 



TEST 1 

CHECKS OPERATION OF MDXt BSC AND EOR SHORT FORM. CHECKS THE ABILITY 
OF THE A REG TO HOLD I'S, TO LOAD I'S ON TOP OF I'S AND TO LOAD O'S 
ON TOP OF 1»S. ALSO CHECKED IS THE FLAG BIT AND INDIRECT ADDRESSING. 

TEST 2 

CHECKS DATA ENTRY SWITCHES. CHECK INSTRUCTION BSI. SRA, AND, OR, 
MDX LONG, RTF AND SRT. 

TEST 3 

CHECKS INSTRUCTIONS RTE, SLA, SLT, STO AND STS. 

TEST A 

CHECKS INSTRUCTIONS BSC, BSI AND LDX. 

TEST 5 

CHECKS INSTRUCTIONS LDX, STX AND A. 

TEST 6 

CHECKS INDEXING, BSC INDEXED, MDX, AND SUBTRACT INSTRUCTIONS 

TEST 7 

CHECKS INSTRUCTIONS SLC, SLCA, LDD, AND STD. 

THE HEADER SECTION CONTAINS THE CONTROL NECESSARY FOR LOOPING ERRORS, 
LOOPING INSTRUCTIONS, AND BYPASSING ERROR WAITS DURING TROUBLE SHOOT- 
ING. REFER TO SECTION 6.2 FOR HEADER TEST ERROR PROCEDURES. 

COLD START LOADER 



IT IS THE FUNCTION OF THE COLD START LOADER TO INPUT THE DIMAL 
SECTION SPECIFIED BY THE COLD START CALL CARD OR TAPE. 

DURING INITIAL DIMAL DISK PACK GENERATION, THE INITIAL LOADER CALLS 
THE COLD START LOADER TO INPUT THE LOADER/ORGANIZER SECTION OF DIMAL. 



DURING ONE CARD, PAPER TAPE, OR CONSOLE ENTRY SWITCH CALLS, 
THE COLD START LOADER IS BROUGHT INTO CORE BY HEADER TEST 7 AFTER 
SUCCESSFUL OPERATION OF THE HEADER SECTION. THE COLD START LOADER 
THEN REFERENCES A CONSTANT CONTAINED IN THE CALL (LOCATION /GOOF) 
TO DETERMINE WHICH DIMAL SECTION TO LOAD. IT WILL LOAD THAT 
SECTION AND BRANCH TO IT. 

THE COLD START LOADER IS STORED ON SECTOR 7 OF THE FIRST DIMAL 
CYLINDER AND IS LOADED INTO CORE AT LOCATION /ODAC. 

5.4 DIMAL LOADER/ORGANIZER SECTION 

IT IS THE FUNCTION OF THE LOADER/ORGANIZER SECTION TO INPUT THE 
DIAGNOSTIC PROGRAMS AND WRITE THEM ON THE DISK PACK. THIS 
SECTION IS ALSO USED TO MODIFY A PREVIOUSLY GENERATED DIMAL PACK. 

THE LOADER/ORGANIZER SECTION IS CALLED FROM DISK BY THE INITIAL 
LOADER. 

WHEN GENERATING A NEW PACK, THIS SECTION WILL FIRST UPDATE THE 
LOCATION DIRECTORY TO INCLUDE THE LOCATION OF THE DIMAL SYSTEM ON THE 
DISK PACK. THE SECTION THEN PREPARES TO INPUT THE PROGRAM DECKS. 
PRIOR TO USING ANY CYLINDER FOR PROGRAM STORAGE, THE CYLINDER IS 
CHECKED FOR A USABLE CONDITION. ALL BAD CYLINDERS ARE BYPASSED. 
A BAD CYLINDER IS DEFINED AS A CYLINDER WHERE ALL SECTORS CAN'T 
BE PROPERLY WRITTEN AND READ. 

THE PROGRAMS ARE STORED ON DISK ACCORDING TO THE FOLLOWING SCHEME. 

A) PROGRAMS WITH PIDS GREATER THAN /009F, ARE NON MONITOR 
DEPENDENT PROGRAMS AND ARE STORED ON DISK IN CORE IMAGE, 
320 WORDS PER SECTOR. ^, ^ 

B) PROGRAMS WITH PIDS LESS THAN /009F, ARE MONITOR DEPENDENT 
PROGRAMS AND ARE STORED ON DISK IN CARD IMAGE, 4 CARDS PER 
SECTOR. 

«*♦ VERY IMPORTANT NOTE «** 

MONITOR CONTROLLED PROGRAMS (PIDS 9F AND LESS) SHOULD NOT HAVE 
MORE THAN 256 CARDS PER DECK. 

THE IMAGE USED IS ENTERED IN THE IMAGE INDICATOR {0=CORE IMAGE, 

1 = CARD IMAGE) WHICH IS CONTAINED IN THE LOCATION DIRECTORY ENTRIES 

FOR EACH PROGRAM. 

CARD 1 (HEADER CARD) OF THE 12-4 DECKS IS NOT STORED ON THE DISK NOR 
ARE THE CARDS WHICH CONTAIN THE WAIT OR TRAP CONSTANTS USED IN 
THE WAIT DESCRIPTION AT THE FRONT OF THE PROGRAM LISTING. THESE 
ARE IDENTIFIED BY ADDRESS STARTING AT 3001 OR 7001. 

WHEN WRITING PROGRAMS ON DISK IN CORE IMAGE, ALL BLOCKS OF STORAGE 
RESERVED BY THE PROGRAM (DEFINED BY BSS STATEMENTS) ARE WRITTEN AS 
ZEROS ON DISK. 

THE NUMBER OF SECTORS USED, THE ADDRESSES OF ALL CYLINDERS USED, 
THE PROGRAM ORG ADDRESS AND THE PROGRAM TRANSFER ADDRESS ARE SAVED 
FOR INCLUSION IN THE LOCATION DIRECTORY. 

THE LOCATION DIRECTORY IS UPDATED FOR EACH PROGRAM UPON ENTERING 
/FFOO IN THE ENTRY SWITCHES. THE LOCATION DIRECTORY FORMAT FOLLOWS - 
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7 8 



15 



* PROGRAM PID * TYPE * 
************************************ 

* TOTAL SECTORS* TOTAL CYLINDERS « 

* ORG. ADDRESS * 

**!i!!!!*************** ***************** 

* 1ST CYLINDER ADDRESS * 
************************************ 

* 2ND CYLINDER ADDRESS * 

************************************ 

* 3RD CYLINDER ADDRESS * 
************************************ 

* 4TH CYLINDER ADDRESS * 
************************************ 

* 5TH CYLINDER ADDRESS * 

************************************ 

* 6TH CYLINDER ADDRESS * 
************************************ 

* 7TH CYLINDER ADDRESS * 
************************************ 

* 8TH CYLINDER ADDRESS * 
************************************ 

* PROGRAM TRANSFER ADDRESS * 
************************************ 

BIT 15 OF THE FIRST ENTRY IS THE IMAGE INDICATOR DESCRIBED 
PREVIOUSLY. 

IF A PROGRAM DOES NOT REQUIRE 8 CYLINDERS FOR STORAGE, THEN ZEROS 
ARE PLACED AS ADDRESSES. REGARDLESS OF HOW MANY CYLINDERS USED, THE 
FORMAT OF THE TABLE WILL ALWAYS BE THE SAME. (TWELVE ENTRIES PER 
TABLE). 

IF A PROGRAM HAS PATCH CARDS BEHIND IT, THE PATCH CARDS WILL BE 
ENTERED IN THE PATCH TABLE ALONG WITH THE PID OF THAT PROGRAM. ALL 
PREVIOUS PATCHES FOR THAT PID WILL BE DELETED. 

AS EACH NEW PROGRAM IS READ IN, IT WILL BE WRITTEN ON THE NEXT 
AVAILABLE SECTOR. THEREFORE A PROGRAM MAY START ON ANY SECTOR OF 
THE CYLINDER PRESENTLY BEING USED. AFTER SECTOR 7 HAS BEEN WRITTEN, 
PROGRAM STORAGE WILL CONTINUE ON THE NEXT SEQUENTIAL AVAILABLE 
CYLINDER, SECTOR ZERO. TRACKS 90-110 AND 199 ARE NOT USED. 

WHEN ALL PROGRAMS HAVE BEEN WRITTEN ON THE DISK, THE LOADER/ORGANIZER 
SECTION WILL SAVE THE NEXT AVAILABLE STORAGE SECTOR BY WRITING ITS 
ADDRESS ON SECTOR 0, WORD 3 OF THE CE HISTORY TRACK. THE SECTION 
THEN LISTS THE CONTENTS OF THE LOCATION DIRECTORY AND PRINTS A SEEK 
COUNT TO BE USED WHEN ENTERING THE CALL VIA THE ENTRY SWITCHES 

SUBROUTINE DLPGM IS USED TO DELETE PROGRAMS. THIS SUBROUTINE REMOVES 
ALL ENTRIES FROM THE LOCATION DIRECTORY WHICH PERTAIN TO THE PID 
SPECIFIED TO BE DELETED. A NEW LISTING OF THE LOCATION DIRECTORY 
FOLLOWS AUTOMATICALLY. (THE PROGRAM ITSELF IS NOT ERASED FROM THE 
DISK, ONLY THE LOCATION DIRECTORY ENTRIES). 



5.5 DIMAL SELECT/EXECUTE SECTION 



*** NOTE *** 

INTERRUPT REQUEST KEY AND START BUTTON PERFORM 
THE SAME FUNCTION IN THIS SECTION. 

THE PURPOSE OF THIS SECTION IS TO CALL INTO CORE, FROM DISK, THE 
DIAGNOSTIC PROGRAM SPECIFIED BY THE OPERATOR. 

THE SELECT/EXECUTE SECTION IS CALLED INTO CORE BY AN IPL CALL CARD, 
A PAPER TAPE CALL STRIP, OR A CALL ROUTINE ENTERED VIA THE SWITCHES. 

THE SELECT/EXECUTE SECTION IS DIVIDED INTO TWO PARTS, A RESIDENT 
PORTION, AND THE MAIN BODY OF THE SECTION. 

THE RESIDENT PORTION PERMANENTLY RESIDES IN CORE FROM LOCATION /OOIF 
THROUGH /0160 . ALL PROGRAMS WHICH RETURN TO DIMAL WILL DO SO VIA 
THE INTERFACE ENTERING AT LOCATION /0078. THE MAIN PORTION OF 

DIMAL ALSO ENTERS THE RESIDENT PORTION TO LOAD ABSOLUTE PROGRAMS OR 
PRIOR TO TRANSFERING CONTROL TO A MONITOR PROGRAM. 

THE MAIN BODY OF THE SELECT/EXECUTE SECTION SHARES CORE LOCATIONS 
/0160 TO /05DC WITH EITHER MONITOR OR A NON MONITOR PROGRAM 

WHEN A PROGRAM HAS BEEN ENTERED IN THE CONSOLE ENTRY SWITCHES FOR 

SELECTION, THE DIMAL SECTION WILL DETERMINE WHETHER THE 

PROGRAM IS MONITOR DEPENDENT OR STAND-ALONE, NON MONITOR DEPENOENT. 



I STAND ALONE PROGRAMS I 

IF A STAND-ALONE PROGRAM IS BEING REQUESTED, THE SELECT/EXECUTE SEC- 
TION WILL SEARCH THE LOCATION DIRECTORY FOR THAT PID. WHEN THE PID IS 
FOUND, IT'S LOCATION ON DISK WILL BE STORED IN THE RESIDENT SECTION 
AND CONTROL GIVEN TO THE RESIDENT SECTION. 

THE RESIDENT SECTION WILL INPUT THE SELECTED DIAGNOSTIC PROGRAM AND 
BRANCH TO IT. DIMAL CONTROL IS LOST AT THIS POINT UNLESS THE 
PROGRAM PROVIDES A BRANCH TO LOCATION /0078. 

THE DIMAL SECTION MAY BE RELOADED BY SETTING THE I REG TO HEX /G073 
AND CONTINUING FROM THAT POINT. IF SEQUENTIAL PIDS ARE TO BE 
EXECUTED, THE SELECTION OF THE NEXT PID IS AUTOMATIC. 
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I DIAGNOSTIC MONITOR DEPENDENT PROGRAMS 



6. APPENDIX 



DIMAL IN NO WAY AFFECTS THE OPERATION OF THE DIAGNOSTIC MONITOR. 

WHEN THE PID ENTERED IN THE CONSOLE ENTRY SWITCHES IS A DIAGNOSTIC 
MONITOR DEPENDENT PROGRAM, THE DIMAL SECTION WILL PUT MONITOR ON 
WORKING CYLINDER ZERO. 

DIMAL WILL LOCATE THE SELECTED PROGRAM ON DISK, LOAD IT INTO CORE, 
RELOCATE IT, EFFECT A CORE SWAP OF DIMAL AND MONITOR, AND BRANCH 
TO THE PROGRAM JUST LOADED. 

UPON PROGRAM TERMINATION, THE MONITOR WILL RETURN TO THE INTERFACE 
SECTION, AGAIN THE CORE SWAP WILL OCCUR AND THE DIMAL SECTION WILL 
SET UP TO ALLOW SELECTION OF THE NEXT DIAGNOSTIC PROGRAM. 
IN THE OVERLAP MODE OF OPERATION, THE DM WILL RETURN TO DIMAL AFTER 
EACH PROGRAM HAS BEEN LOADED FOR THE NEXT PROGRAM SELECTION. TO 
INDICATE THAT THE LAST PROGRAM IS LOADED, SWITCHES 8 THROUGH 15 
SHOULD BE SET TO OOFF. 

TO RETURN TO DIMAL FROM OVERLAP OPERATIONS, REFER TO MONITOR -LOAD 
PROGRAM OPTION. 



6.1 CONSOLE ENTRY SWITCHES CALL ROUTINE. 

THIS ROUTINE MAY BE USED TO CALL DIMAL FROM DISK TO CORE STORAGE, 
TO ENTER THE CALL ROUTINE PROCEED AS FOLLOWS- 

1. MOUNT THE DIMAL PACK AS EXPLAINED IN SECTION 3.3.1. 

2. SET THE MODE SWITCH TO LOAD. 

3. INSURE THAT THE I COUNTER IS AT /0014. 

4. ENTER THE HEX INSTRUCTIONS PROVIDED ON THE NEXT PAGE IN THE: 
ENTRY SWITCHES PRESSING THE START BUTTON AFTER EACH ENTRY. 



*** VERY IMPORTANT NOTE *«* 



MAKE SURE THAT YOU ENTER THE CALL SEEK COUNT IN LOCATION /004A 
OF THIS ROUTINE. 



5. AFTER ALL THE INSTRUCTIONS HAVE BEEN ENTERED, SET THE BEGINNING 
ADDRESS /0019 IN THE CONSOLE ENTRY SWITCHES, PRESS THE LOAD I AR 
BUTTON. SET THE MODE SWITCH TO RUN, PRESS START. 

6. THE ROUTINE WILL WAIT ( 300A ) AT LOCATION /0021 SET DISK AREA 
CODE IN ENTRY SWITCHES 0-8 AT THIS WAIT. 

7. THE ROUTINE WILL WAIT (300C) AT LOCATION /O025 SET THE CALL 
CODE AT THE WAIT. THE CODE IS /OOOl FOR LOADER ORGANIZER, /0002 
FOR SELECT EXECUTE. 
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CALL ROUTINE 

LOCATI0N*INSTRUCTIONS«LABEL*OPER*FT*OPERAND + REMARKS 

0014 0000 INTP DC *-* 

0015 OCOO 0046 XIO L RESAT-1 SENSE-NORESET 



0017 


4CC0 0014 


0019 


6500 0014 


OOIB 


6D00 OOOA 


OOID 


6500 0141 


OOIF 


6D00 004E 


002 1 


300A 


0022 


0807 


0023 


C008 


0024 


D0E9 


0025 


300C 


0026 


0803 


0027 


C004 


0028 


D0E6 


0029 


7003 


002A 


002C 


002B 


3A00 


002C 


0000 


002D 


0818 


002E 


1002 


002F 


4808 


0030 


70 FC 


0031 


1802 


0032 


4804 


0033 


7005 


0034 


0813 


0035 


3002 


0036 


1004 


0037 


4810 


0038 


70FB 


0039 


0810 


003A 


3003 


003B 


0810 


003C 


3004 


0030 


COOC 


003E 


1003 


003F 


FOOF 


0040 


4820 


0041 


70F2 


0042 


C0F3 


0043 


DOFD 


0044 


700C 


0045 


0000 


0046 


0000 


0047 


2701 


0048 


0001 


0049 


2 404 


004A 


0000 


004B 


2400 


004C 


004E 


004D 


2 600 



BOSC I INTP 

LDX LI INTP 

STX LI /OOOA 

LDX LI /014I 

STX LI /004E 





WAIT 


/A 




XIO 


RBITS 




LD 


ADRS 




STO 


/OOOE 




WAIT 


/C 




XIO 


RBITS 




LO 


ADRS 




STO 


/OOOF 




MDX 


B00T2 


KBITS 


DC 


ADRS 




DC 


/3A00 


ADRS 


DC 


*-* 


BOOT 2 


XIO 


RESAT-1 




SLA 


2 




BSC 


+ 




MDX 


BOOT 2 




SRA 


2 




BSC 


E 




MDX 


B44S0 


B13SD 


XIO 
WAIT 


SEEKB-1 


XTAGl 


SLA 


4 




BSC 


- 




MDX 


B13SD 


B44SD 


XIO 


SEEKT-1 




WAIT 


3 




XIO 


REED-1 




WAIT 


4 




LD 


SEEKT-1 




SLA 


3 




EOR 


BOOTl+79 




BSC 


Z 


XTAG2 


MOX 


B13SD 




LD 


XTAGl 




STO 


XTAGZ 




MDX 


BOOT 1+81 




DC 


*-* 




DC 


*-* 


RESAT 


DC 


/2701 




DC 


1 


SEEKB 


DC 


/2404 




DC 


*-« 


SEEKT 


DC 


/2400 




DC 


/004E 


REED 


DC 


/2600 



RESET INTR +EXIT 

PICKUP INTR VCTR 

STORE IN LOC A 

LOAD WORD COUNT 

STORE IN LOC 4E 

ENTER AREA CODE 
READ DATA ENT SW 
LOAD CONTENTS 
STORE IN LOC E 
ENTER TYPE OF CALL 
READ DATA ENT SW 
LOAD CONTNETS 
STORE IN LOC F 
BR. AROUND CONST 

READ DES lOCC 

SENSE DISK STATUS 

TEST FOR READY NOT BUSY 

SKIP IF OFF 

LOOP UNTIL READY 

TEST FOR 13SD 

13SD IF BIT OFF 

ELSE BRANCH 

ISSUE SEEK HOME COMMAND 

POSITION HOME BIT 

SKIP IF ON 

LOOP UNTIL DISK IS HOME 

SEEK TO DESIRED CYLINDER 

READ ONE SECTOR 

TEST FOR CORRECT CYL POSITION 

POSITION BITS 

CHECK FOR PROPER ADDRESS 

IF YES SKIP 

ELSE RETRY 

GET A 'NOP' INSTRUCTION 

CHANGE ABOVE 'MDX' TO A 'NOP' 

BRANCH TO 1ST HEADER TEST 



SENSE AND RESET lOCC 
SEEK HOME lOCC 

SEEK FORWARD lOCC 
WORD COUNT ADDRESS 
READ lOCC 



6.2 DIMAL HEADER TEST ERROR PROCEDURE 

THE HEADFR TEST IS DIVIDED INTO 7 TEST SECTIONS (TESTS 1 THROUGH 7). 
EACH TEST SECTION HAS ITS OWN PROGRAM LISTING. TOGETHER THESE TESTS 
COMPRISE AN ABREVIATION OF THE CPU FINCTION TEST. WHEN AN ERROR 
PERSISTS USE THE CPU FUNCTION TEST PID 03A1 TO CORRECT THE PROBLEM. 

TABLE 2 SHOWS THE FUNCTIONS OF DATA ENTRY SWITCHES AND 1 IN PROVID- 
ING ERROR ROUTINE CONTROL. SET THE SWITCHES AS DESIRED WHEN AN ERROR 
WAIT IS ENCOUNTERED. 

TABLE 2 
HEADER TEST ERROR PROCEDURE OPTIONS 

******************************************************************************** 

* CONSOLE ENTRY SWITCH * * 
♦0123456789 * * DESCRIPTION * 

* . . : 

« . 1 LOOP INSTRUCTION 

* 1 BYPASS ERROR WAIT * 

* I 

* . . * 

* . . "" 
« RETRY FAILING INSTRUCTION AND HALT IF ERROR OCCURS. * 

* PROGRAM WILL PROCEED IF FAILURE DOES NOT REOCCUR. * 

* . . * 

« 1 RETRY FAILING INSTRUCTION AND BYPASS HALT IF ERROR * 

« OCCURS. PROGRAM WILL PROCEED IF FAILURE DOES NOT REOCCUR* 

* . . 

:4c 1 CONTINUOUS LOOP ON INSTRUCTION. HALT AT ERROR WAIT IF * 

* FAILURE OCCURS. USE THIS SETTING TO DETECT INTERMI TTANT * 
« ERRORS, AND FOR STEPPING THROUGH A FAILING ROUTINE IN - 

* SINGLE INSTRUCTION MODE. * 

* . . * 
« [ [ CONTINUOUS LOOP ON INSTRUCTION. BYPASS WAIT ON ERROR. * 

* USE SETTING TO SCOPE A FAILING INSTRUCTION. * 
******************************************************************************** 



A DESCRIPTION OF ALL THE WAITS FOLLOWS- 
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* HEADER TEST 1 WAITS. * 

8-REG ERROR WAIT COMMENTS 

3004 MDX BY 1 FAILED 

3005 MDX BY 2 FAILED 

3006 MDX BY 2 FAILED 

3007 MDX BY 4 FAILED 

3008 MDX BY 4 FAILED 

3009 MDX BY 4 FAILED 
300A MDX BY 4 FAILED 
3008 MDX BY -2 FAILED 
3000 MDX BY -2 FAILED 
3000 MDX BY -2 FAILED 
300E MDX BY -2 FAILED 
300F MDX BY 8 FAILED 

3010 MDX BY 8 FAILED 

3011 MDX BY 8 FAILED 

3012 MDX BY 8 FAILED 

3013 BSC-CARRY FAILED 

3014 BSC-OVERFLOW FAILED 

3015 BSC-OVERFLOW SKIPPED, SHOULD NOT 

HAVE 
3trre «e-=trAftRY SirtWte, SHQOL^^NST HAV€ 

3017 LD ACC TO FAILED 

3018 LD ACC TO FAILED 

3019 BSC ON EVEN FAILED 

301A LOAD ACC. FAILED OR BSC ON NEG. 

FAILED 
301B BSC ON PLUS SKIPPED, SHOULD 

NOT HAVE 
301C BSC ON EVEN SKIPPED, SHOULD 

NOT HAVE 



3010 


ACC 


NOT 


# 


7FFF 


301E 


ACC 


NOT 


# 


3FFF 


301F 


ACC 


NOT 


# 


IFFF 


3020 


ACC 


NOT 


# 


OFFF 


3021 


ACC 


NOT 


# 


07FF 


3022 


ACC 


NOT 


# 


03FF 


3023 


ACC 


NOT 


# 


OlFF 


3024 


ACC 


NOT 


# 


OOFF 


3025 


ACC 


NOT 


# 


007F 


3026 


ACC 


NOT 


« 


003F 


3027 


ACC 


NOT 


* 


GOIF 


3028 


ACC 


NOT 


* 


OOOF 


3029 


ACC 


NOT 


# 


0007 


302A 


ACC 


NOT 


# 


0003 


302B 


ACC 


NOT 


* 


0001 


302C 


ACC 


NOT 


# 


0000 


302D 


ACC 


NOT 


* 


0000 


302E 


ACC 


NOT 


# 


FFFF 


302F 


ACC 


NOT 


# 


FFFF 


3030 


ACC 


NOT 


# 


7FFF 


3031 


ACC 


NOT 


# 


3FFF 


3032 


ACC 


NOT 


# 


IFFF 


3033 


ACC 


NOT 


# 


OFFF 


3034 


ACC 


NOT 


# 


07FF 


3035 


ACC 


NOT 


# 


03FF 


3036 


ACC 


NOT 


# 


OlFF 


3037 


ACC 


NOT 


# 


OOFF 


3038 


ACC 


NOT 


# 


007F 


3039 


ACC 


NOT 


# 


003F 


303A 


ACC 


NOT 


# 


OOIF 


303B 


ACC 


NOT 


# 


OOOF 


303C 


ACC 


NOT 


# 


0007 


303D 


ACC 


NOT 


# 


0003 



303E 

303F 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

304A 

304B 

304C 

304D 

304E 

304F 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 
3058 
3059 
305A 
305B 

305C 

305E 

305F 
3060 
3061 
3062 
3063 



ACC NOT 
ACC NOT 



0001 
0000 



ACC NOT # 0000 
ACC NOT # ZERO 
ACC NOT # FFFF 
ACC NOT # ZERO 
EOR OF AND 



EOR OF 
EOR OF 
EOR OF 
EOR OF 



FAILED 
FAILED 
FAILED 
FAILED 
FAILED 
FAILED 



AND 

AND 

AND 

AND 
EOR OF AND 
WRONG LOCATION LOADED 
WRONG LOCATION LOADED 
WRONG LOCATION LOADED 
WRONG LOCATION LOADED 
BSC FELL THROUGH 

BSC SKIPPED, SHOULD OF BRANCHED 
BSC E FELL THROUGH 
BSC SKIPPED, SHOULD OF BRANCHED 
BSC £ FELL THROUGH 
BSC SKIPPED, SHOULD OF BRANCHED 
BSC Z FELL THROUGH 
BSC SKIPPED, SHOULD OF BRANCHED 
BSC SKIPPED, SHOULD NOT 
OF BRANCHED 
C FELL THROUGH 

BSC SKIPPED, SHOULD OF BRANCHED 
BSC FELL THROUGH 
BSC SKIPPED, SHOULD OF BRANCHED 
BSC BRANCHED, SHOULD NOT 
OF BRANCHED 

BSC BRANCHED, SHOULD NOT 
OF BRANCHED 

BSC BRANCH ZERO FAILED, NOT 
PLUS OR NEG. 

BSC SKIPPED, SHOULD OF BRANCHED 
BSC BRANCHED NEG., SHOULD NOT HAVE 
BSC BRANCHED PLUS, SHOULLD NOT HAVE 
INDIRECT BSC FAILED 
INDIRECT BSC FAILED 



* HEADER TEST 2 WAITS. * 
^_*_*_#_*— «—*—*—*—*—*—*—*—*— *—* 

B-REG ERROR WAITS COMMENTS 

3064 BSI SKIPPED, SHOULD OF BRANCHED 

3065 BSI FAILED TO STORE PROPER 1 REG 

3066 BSI PLUS FELL THROUGH 

3067 BSI SKIPPED, SHOULD OF BRANCHED 

3068 BSI FAILED TO STORE PROPER I REG 

3069 STORE FAILED 
306E SRA 16 FAILED 
306F SRA 15 FAILED 

3070 SRA 1 FAILED 

3071 SRA 1 FAILED 

3072 MULTIPLE SRA'S FAILED 

3073 AND OF AND FAILED 

3074 AND OF AND 1 FAILED 

3075 AND OF 1 AND FAILED 

3076 AND OF 1 AND 1 FAILED 

3077 OR OF AND FAILED 

3078 OR OF AND 1 FAILED 

3079 OR OF 1 AND 1 FAILED 

307A ACC DESTROYED AFTER MDX ADD MEM. 

307B ADD TO MEM FAILED 
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307C RTE ZEROS FROM A TO FAILED 

307D RTE ONES FROM A TO Q FAILED 

307E SRT 32-A REG FAILED 

307F SRT 32-Q REG FAILED 

3080 SRT 32-A REG FAILED 

3081 SRT 32-0 REG FAILED 

3082 SRT 15-A REG FAILED 

3083 SRT 15-Q REG FAILED 

3084 MULTIPLE SRT'S FAILED 

3085 MULTIPLE SRT'S FAILED 

* HEADER TEST 3 WAITS. * 

B-REG ERROR WAITS COMMENTS 

3086 RTE 15-0 TO A FAILED 

3087 RTE 15-A TO Q FAILED 

3088 MULTIPLE RTE«S FAILED 

3089 MULTIPLE RTE'S FAILED 
308A SLA 16-CARRY FAILED 
308B SLA 16-AFFECTED Q RED 
308C SLA 16-CARRY FAILED 
308D SLA 16-AFFECTED REG 
308E SLA 1-CARRY FAILED 
308F SRA 1-AFFECTED Q RES 

3090 SLA 1-CARRY FAILED 

3091 SLA 1-AFFECTED REG 

3092 MULTIPLE SRA'S 6 CARRY FAILED 

3093 MULTIPLE SRA'S AFFECTED Q REG 

3094 SLT 32-CARRY FAILED 

3095 SLT 32-0 REG FAILED 

3096 SLT 16-CARRY FAILED 

3097 SLT 16-0 REG FAILED 

3098 SLT 15-CARRY FAILED 

3099 SLT 15-0 REG FAILED 

309A MULTIPLE SLT'S & CARRY FAILED 

309B MULTIPLE SLT'S AFFECTED REG 

309C STORE ZEROS FAILED 

309D STORE ONES FAILED 

309E STS FAILED TO STORE 

309F LOST ACC DATA AFTER LDS-STS 

30A0 STS NOT CLEAR CARRY 

30A1 STS NOT CLEAR OVERFLW 

30A2 STS FAILED TO STORE 

30A3 STS FAILED TO STORE 

30A4 STS NOT CLEAR CARRY 

30A5 STS FAILED TO STORE 

30A6 STS NOT CLEAR OVERFLOW 



* HEADER TEST 4 WAITS. * 



B-REG 

30A7 
30A8 
30A9 
30AA 
30AB 
30AC 
30AD 
30 AE 
30AF 
30B0 
30B1 
30B2 

30B3 
30B4 
30B5 
30B6 
30B7 
30B8 
30B9 
30BA 

30BB 

30BC 

30BD 

30BE 

30BF 

30C0 
30C1 
30C2 
30C3 
30C4 
30C5 
30C6 
30C7 
30C8 



ERROR WAITS COMMENTS 

BSC SKIPPED, SHOULD NOT HAVE 

BSC SKIPPED, SHOULD NOT HAVE 

BSC FAILED TO SKIP 

BSC NOT CLEAR OVERFLW 

BSC FAILED TO SKIP 

BSC FELL THRU 

BSC SKIPPED, SHOULD OF BRANCHED 

ACC DESTROYED AFTER LOAD-TEST-EOR 

BSC FELL THRU 

BSC SKIPPED, SHOULD OF BRANCHED 

BSC SKIPPED, SHOULD NOT OF BRANCHED 

BSC BRANCHED, SHOULD NOT 

OF BRANCHED 

BSC PLUS CLEARED OVERFLOW 

BSC FAILED TO SKIP 

BSI FELL THRU 

BSI SKIPPED, SHOULD OF BRANCHED 

BSI DID NOT CLEAR OFL 

BSI FELL THROUGH 

BSI SKIPPED, SHOULD OF BRANCHED 

BSI BRANCHED, SHOULD NOT 

OF BRANCHED 

BSI BRANCHED, SHOULD NOT 

OF BRANCHED 

BSI BRANCHED, SHOULD NOT 

OF BRANCHED 

BSI BRANCHED, SHOULD NOT 

OF BRANCHED 

BSI BRANCHED, SHOULD NOT 

OF BRANCHED 

BSI BRANCHED, SHOULD NOT 

OF BRANCHED 

TAG REG BIT 7 

TAG REG BIT 6 

TAG BIT 6 OR 7 FAILED INDEX 3 

IX 1 NOT LOADED 

IX 2 NOT LOADED 

IX 3 NOT LOADED 

IX 1 NOT LOADED 

IX 2 NOT LOADED 

IX 3 NOT LOADED 



FAILED INDEX 
FAILED INDEX 
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* HEADER TEST 5 WAITS. * 



B-REG 



ERROR WAITS COMMENTS 



30C9 


LONG FORM LDX-FAILEO 


30CA 


LONG LOX FAILED 


30CB 


LONG LOX FAILED 


30CC 


INDIRECT LDX FAILED 


30CD 


INDIRECT LDX FAILED 


30CE 


INDIRECT LOX FAILED 


30CF 


ACC GONE AFTER STX 


30 DO 


IX 1 NOT STORED 


30D1 


IX 2 NOT STORED 


3002 


IX 3 NOT STORED 


3003 


IX 1 NOT STORED 


30D4 


IX 2 NOT STORED 


3005 


IX 3 NOT STORED 


3006 


IX 1 FAILED TO SKIP 


3007 


1X2 CHANGED 


3008 


1X3 CHANGED 


30D9 


1X2 FAILED TO SKIP 


3008 


1X3 CHANGED 


300C 


1X3 FAILED TO SKIP 


3000 


IX 1 CHANGED 


30DE 


1X2 CHANGED 


30DF 


MRONG DECODE OF ACC 


30E0 


WRONG DECODE OF ACC 


30E1 


WRONG DECODE OF ACC 


30E2 


OVERFLOW IS ON 


30E3 


CARRY NOT ON OR ADD 




0001 + FFFF FAILED 


30 E4 


CARRY NOT ON OR ADD 




FFFF + FFFF FAILED 


30E5 


OVERFLOW NOT ON OR ADO 




4000 + 4000 FAILED 




ADD 4000 + 4000 FAILED 


30E6 


ADD 8000 + 8000 FAILED 


30E7 


OVERFLOW NOT ON 


30E8 


CARRY NOT ON 



* HEADER TEST 6 WAITS. * 

B-REG ERROR WAITS COMMENTS 

30E9 WRONG LOCATION 

30EA IX 1 LOADED WRONG 

30EB WRONG LOCATION 

30EC IX 2 LOADED WRONG 

30ED WRONG LOCATION 

30EE IX 3 LOADED WRONG 

30EF WRONG LOCATION 

30F0 IX 3 LOADED WRONG 

30F1 WRONG LOCATION 

30F2 IX 3-LOADED WRONG 

30F3 SHORT INDEX FAILED 

30F4 SHORT INDEX FAILED 

30F5 SHORT INDEX FAILED 

30F6 INDEXED SLA FAILED 

30F7 INDEXED SRA FAILED 

30F8 INDEXED BSC FAILED 

30F9 BSC INDIRECT FAILED 

30FA 0001 MINUS 0000 FAIL 

30FB CARRY NOT ON 

30FC FFFF MINUS 0000 FAIL 

30FD CARRY NOT SET 

30FE 0001 MINUS 8000 FAIL 

30FF OVERFLOW NOT SET 

3100 8000 MINUS 0000 FAIL 

3101 CARRY NOT ON 

3102 OVERFLOW NOT ON 

3103 IXl FAILED TO SKIP 

3104 MDX 1X1 FAILED 

3105 MDX LONG IX 2 FAILED 

3106 IX 3 NO SKIP AT 

3107 SIGN CHANGE-NO SKIP 

3108 ACC GONE AFTER MDX I 

3109 INDIRECT MDX FAILED 
310A MDX L FAILED TO SKIP 
310B MDX L SKIPPED-ERROR 
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